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EDITORIAL 


Il est très dur, pour un éditeur de journal de décider si il doit retarder ou non sa sortie, lorsque il est 
dans l’attente imminente de l’arrivée d’informations très importantes. Puis lorsque ces informations 
se mettent à a arriver à un rythme important, de décider à quel moment il en a suffisement pour 
publier l’article attendu. Ce mois ci, nous avons décidé d’attendre. En effet ce qui n’était en ces 
derniers mois qu’une rumeur s’est révélé tout à fait fondé, puisque le mois d’août verra la sortie du 
HP200. Tout ce que HP a révélé, plus le reste, dans ce JPC ! 


Récement, un adhérent nous a demandé de lui donner des idées d'articles. Ne sachant pas quels 
étaient ses domaines d’intérets, il nous a été impossible de lui répondre (déjà que nous avons du mal 
à trouver des idées pour nos propres articles !). Heureusement, deux articles arrivés ce mois ci, 
parlant d'électronique ou de mécanique, nous ont rappelé qu’il ne fallait pas chercher très loin pour 
trouver des sujets d’article. Que ce soit dans le cadre de votre travail ou celui de vos études, nous 
sommes sûrs que vous avez dans la mémoire de votre machine un petit programme ou un fichier 
(Lotus ou autre) dont vous vous servez tous les jours, et que vous jugez indispensable. Puisque il vous 
semble utile, il est très possible qu’il puisse rendre aussi de grands services à d’autres utilisateurs. En 
effet, les activités des adhérents est suffisament variée pour que des articles de mécanique, électri 
chimie ou autres trouve une audience suffisante. 





Ce mois ci, les utilisateur de HP48 et HP100 trouverons peut-être leur rubrique préférée un peu 
courte, et celle concernant la HP28 trop importante. Rapelez vous que nous traitons à égalité toutes 
les machines, et que même les HP28 ont le droit de d’envahir le journal. Ceci dit (et actualité HP200 
oblige), nous avons décidé de reporter la deuxième partie de l’article sur l'affichage d’animations sur 
HP95/HP100 au mois prochain, afin de ne pas surprendre notre imprimeur (et notre trésorier !) avec 
un numéro de plus de 50 pages... 


Vous trouverez page suivante un article que certains trouverons trop élogieux, et d’autres trop 
vindicatif (et pour la plupart, les deux en même temps !). Bien que Guy Toublanc fasse partie du 
bureau, rapelez vous bien que, comme tous les Libres Propos écrits par d’autres adhérents, il ne s’agit 
ici que de réflexions personnelles, et non de la position officielle du Club. A vous de juger, et rapelez 
vous que nous sommes bien sûr tout a fait disposés à publier tout avis contradictoire. 


Pour terminer sur le contenu de ce JPC, notez bien que les articles de Jean-François Garnier 
concernent aussi bien les HP28 que les HP48. 





Maintenant, une bonne nouvelle. Nous avons décidé de réduire de façon très significative le prix de 
nos disquettes. Cela est principalement dû au désir de respecter les souhaits légitimes de certains 
auteurs refusant que d’autres fassent quelque bénéfice que ce soit avec leurs programmes (ne vous 
inquiétez pas, nous n’aurions jamais fait fortune !). Une autre raison, de cette baisse est que lorsque 
nous avions fixé le prix, nous nous étions b: subjectivement sur celui proposé par certains 
distributeurs de programmes freeware (nous faisions cependant beaucoup moins d’argent, puisque 
nous ne faisions pas payer le port, et que nous utilisions des disquettes de marque). Depuis, les prix 
des revendeurs (ainsi que celui des disquettes pour une moindre part) ayant baissé, nous ne pouvions 
que suivre le rythme... 











Une bonne nouvelle ne venant jamais seule, les Goodies Disks HP48 numéro 10 sont disponibles. Le 
temps de faire une sélection de nos derniers arrivages, afin de remplir une disquette, et nous devrions 
pouvoir vous en faire une présentation le mois prochain. 


En attendant, essayez de ne pas rayer l'écran de votre palmtop si vous l’ammenez sur la plage ! 
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LIBRES PROPOS 


Nous lui devons beaucoup 


Depuis la reprise en main du club par notre président 
Jacques Belin, les numéros de JPC se sont succédés 
(No 76 de mai 92 au présent No 98) de façon 
continue et cela, il faut le reconnaître, essentiellement 
grâce à Jacques qui s’est dépensé sans compter pour 
remettre sur pieds un club qui pratiquement n’existait 
plus. Ce redressement s’est fait avec beaucoup de 
mérite et d’opiniâtreté car en réalité tout repose sur 
les épaules d’une seule personne : le président 
(NDIB : Pas tout à fait quand même. Même si il 
n'apparait pas dans ces colonnes, Bemard Poughon, 
notre trésorier, assure parfaitement sa tâche. Qu'il en 
soit remercié). Jacques assure avec méthode et rigueur 
la gestion du club et à lui seul réalise aussi bien ce 
que faisait autrefois une équipe d’au moins deux 
personnes. Si certains ne voient l’activité du club que 
par la production du journal JPC, ils simplifient 
beaucoup les choses car Jacques remplit avec sérieux 
de nombreuses tâches pour faire vivre le club. Tout ce 
travail est fait dans le bénévolat le plus total car notre 
association n’est ni une entreprise commerciale, ni un 
pseudo-club servant à canaliser un type d'usagers 
dans un magasin. Non seulement il n’était pas aisé de 
refaire fonctionner le club mais il a fallu faire face aux 
multiples entraves et attaques destructrices de la part 
de gens qui ont fait le maximum, avec tous les moyens 
à leur disposition, pour accélérer la disparition de 
notre association non pas parce qu’elle les gêne mais 
parce que leur raison de vivre est de détruire. 








Pour que le miracle continue il faudrait que les 
éternels passifs fassent au moins un petit effort de 
participation au sein du club pour encourager Jacques 
et le récompenser pour les sacrifices personnels 
consentis 


Je pense qu’il était l’heure de rendre hommage à celui 
qui fait le maximum pour notre association. 


A chacun sa façon d’être 


S'il existe un certain nombre de clubs pour usagers de 
calculatrices et palmtops HP, ils se distinguent les uns 
des autres en de nombreux points et sont souvent 
complémentaires. Pour le nôtre, sil n’est pas sans 
défauts, il se caractérise par : 


- Une totale indépendance vis-à-vis de la marque, des 
distributeurs ou d’un quelconque magasin. Cela nous 
coûte cher mais nous permet aussi de diffuser des 
informations sans contraintes commerciales alors que 
d’autres clubs sont trop près du négoce pour se payer 
ce luxe. 


- La possession d’une salle de réunions mensuelles à 
Paris, ce que certains peuvent nous envier, là aussi ce 
n’est pas totalement gratuit mais cela donne le loisir 
de discuter largement pendant trois heures et sans les 
contraintes qu'imposent des rencontres dans un 
magasin exigu. 


-La publication d'un journal de liaison dont la 
périodicité (10 fois par an) est exceptionnelle parmi 
ses homologues puisque la mode est plutôt à une 
périodicité bimestrielle, trimestrielle quand ce n’est 
pas tous les 4, 5, 6 mois etc! Journal pouvant 
recevoir, sans contraintes de longueur, des articles de 
nature très diverse, y compris les fichiers sources et 
non pas seulement des listes de codes contrairement à 
ce qui se pratique très souvent mais qui n’est pas 
forcément acceptable pour ceux qui ne se contentent 
pas d’être de simples consommateurs. Le club n’ayant 
pas de contraintes commerciales, les rubriques sont 
ouvertes aux différents types de machines et non pas 
au dernier type sous prétexte qu’un magasin n’a plus 
d'intérêts commerciaux à tirer des modèles moins 
récents. La disponibilité des numéros de JPC sans 
devoir se lamenter pendant des semaines et des mois 
pour les recevoir. 





- La diffusion sur support magnétique de logiciels ou 
documentations du domaine public ce qui est 
beaucoup moins onéreux que la diffusion par les 
serveurs surtout lorsqu'on est pas à proximité de 
ceux-ci (problème des provinciaux éloignés de la 
capitale). 





- Un interlocuteur (Jacques) sérieux, compétent, 
permanent et non pas fantomatique. 


- Un club qui a un passé avec des méthodes de 
gestion qui ont fait leurs preuves (lorqu'il y a 
quelqu'un pour les appliquer évidemment). 














Avec tous ces atouts que manque-t-il à notre club 
pour être dans la catégorie des heureux? 


La réponse est la même que celle pour tous les autres 
clubs qui vivent du bénévolat : moins d’adhérents 
passifs donc plus d’actifs. 


A propos de réflexions 


Parmi les désagréments, pour celui qui essaie de faire 
vivre un club, il en est un qui paralyse littéralement : 
celui provoqué par l'indifférence. Ne pas savoir si ce 
que l’on (quiconque participe) fait intéresse au moins 
une personne est le pire des maux. Aussi je remercie 
Robert Amram d’avoir réagi en nous livrant ses 
réflexions dans le JPC 97. 


Si Jacques a apporté des éléments de réponses aux 
questions posées par Robert, je voudrais préciser 
quelques points. Je suis un vieil adepte des petites 
machines HP (HP45, 55, 97, 25, 41, 71, 28, 48) et je 
n’ai pas connu tout de suite de club HP. J'ai appris à 
programmer avec les seuls manuels HP pendant une 
assez longue période d’isolement. Puis j’ai découvert 
le club PPC Toulouse qui fut un excellent club pour 
HP41. Jusque là je ne connaissais pas les langages de 
bas niveau (assembleur, forth). Enfin PPC Paris fut la 
révélation après avoir acquis un HP71. C’est en lisant 
dans JPC les fichiers-sources des programmes en 
langage forth ou assembleur que je me suis initié à ce 
type de programmation que je pratique depuis. A 
l'époque il n'existait pas de livres tels que ceux de 
Paul Courbis ou Jean-Michel Ferrard, donc les 
programmeurs en assembleur de PPC Paris étaient 
mes maîtres à penser. 





Si j'ai fait ce petit historique c’est pour justifier ma 
façon de concevoir mes articles. J'ai appliqué une 
pédagogie par l’exemple pour ce qui me semble le 
moinss accessible pensant que les programmeurs en 
herbe éprouveraient les mêmes types de difficultés 
que moi-même à mes débuts. Il est possible que mon 
évolution de programmeur ne se répète pas de la 
même manière chez d’autres. Si je n’ai jamais écrit, 
dans JPC, d’articles d'initiation à lassembleur sur 
Saturn c’est qu’il existe dans l’ensemble des numéros 
de ce journal une abondance d’exemples de 
programmes dans ce langage. Par contre j'ai amorcé 
une telle initiation dans le journal 48Sxtant où le 
terrain était totalement vierge. 


D'un autre côté, si le plus gros de mes articles a trait 
à des programmes en assembleur et largement 
commentés (comme le fait Jacques côté DOS) il me 
semble que j'ai abordé différents domaines dans JPC, 
y compris certains articles qui ont un caractère 
d'initiation (optimisation ou comparaison des 
différentes programmations en User Rpl). 





Pour ma part ce que je peux suggérer, suite aux 
remarques de Robert, c’est que des gens désireux de 
débuter en assembleur sur Saturn proposent un petit 
problème pour le programmer dans ce langage et en 
donnant les toutes premières explications. Cela aurait 
l'avantage de révéler les candidatures et pour une fois 
de savoir qui veut quoi, car ce qui intéresse l'un peut 
laisser indifférent l’autre. Par exemple Robert qui 
s'est intéressé aux traitement de caractères ne sera 
peut-être pas tenté par le graphisme qui n’est pas, à 
mon avis, le premier thème à aborder car pas des plus 
faciles. 


Ou si Robert Pulluard est d’accord, les quelques 
pages d'initiation de ma main et parues dans son 
journal pourraient être reprises ici. Dans tous les cas 
il faudrait que les gens intéressés se manifestent. 


Passé ce petit coup de pousse pour le départ, il ne me 
semble pas possible de faire mieux que de commenter 
les fichiers-sources des programmes importants et de 
demander aux lecteurs un peu d’attention et de 
ténacité. S’il n'y a pas de recettes miracles, la 
programmation en assembleur ne requiert pas des 
capacités intellectuelles exceptionnelles et je connais 
des gens, hors de notre club, qui pratiquent 
lassembleur sur Saturn et pourtant font preuve d’un 
niveau culturel lamentable et sont bien incapables de 
réaliser un programme correct en User Rpl, langage 
qu’ils dénigrent certainement parce qu’il fournit des 
programmes directement éditables et lisibles par 
chacun. 


Diversité et passivivité 


Nos calculatrices ont d’abord été conçues pour faire 
des calculs et certains semblent ignorer cette simple 
évidence. Le constructeur a étendu les possibilités 
d'utilisation qui en fait sont limitées par la vitesse et 
les capacités mémoire. Actuellement les motifs 
d'utilisation sont très divers et de là les niveaux des 
utilisateurs puisque l’on pourra arriver au plus bas 
avec des gens qui ne connaîtront que quelques 
touches permettant d'utiliser un jeu conçu très 
astucieusement par un autre mais qui n'ont pas la 
moindre idée de ce qu’est un programme ni de ce 
qu’il y a dans les différents menus HP. 





Cette diversité d'utilisation devrait avoir pour 
conséquence une participiation aussi diverse au 
niveau des articles et programmes. Ce que lon 
constate est l'opposé : 


- Trop d’adhérents pratiquent l’attentisme : un autre 
fera bien ce qu’ils devraient faire. Le résultat est que 
lon ignore les centres d'intérêts des uns et des autres 
et l'entraide associative est réduite à néant. 
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- Certains savent programmer pour leurs besoins 
personnels mais pensent que cela ne peut servir qu’à 
eux-mêmes. Egoïsme ou peur de consacrer un peu de 
temps à écrire quelques lignes explicatives pour les 
éventuels utilisateurs de leurs programmes ? Là 
encore le sens associatif est mis à mal. 


- Sans programmer on peut être un bon utilisateur de 
sa machine ainsi que de ses accessoires et bien 
connaître quelques logiciels. Faire profiter les autres 
de ses propres expériences permettrait d'élargir le 
cercle des bons utilisateurs. 


- Il y a les peureux qui n’osent pas publier parce qu'ils 
ont des scrupules. Ils ont totalement tort car leur 
travail serait profitable à d’autres qui à leur tour 
pourraient faire avancer les choses. Par exemple le 
petit programme de conversion de caractères 
accentués, de Robert Amram, aurait pu ne jamais 
être publié sous prétexte que Robert jugeait que son 
programme n'avait pas un degré de sophistication 
suffisant pour avoir l'honneur de paraître dans les 
colonnes de JPC. Cela aurait été une grosse erreur 
car son travail m’a révélé un besoin auquel je n'avais 
pas pensé et m’a incité à aller un peu plus loin que 
Robert. Le résultat : nous sommes au moins deux à 
utiliser le même type de programme car celui-ci m'est 
très utile. J'aurais été très heureux que des 
utilisateurs nous révèlent d’autres applications. 
Contrairement à ce que devrait être un livre fait par 
un spécialiste chevronné, JPC n’est pas un recueil de 
programmes parfaits mais au contraire de choses 
perfectibles grâce au concours des uns et des autres 
comme cela l'était par le passé. La périodicité de 
parution de JPC devrait être un atout dans le sens 
évolutif et l’émulation, à l'opposé d’un ouvrage qui 
reste statique pendant de nombreux mois, sinon des 
années. 








- Enfin il y a les gens qui se réservent pour la 
rentabilité. Il y est tout à fait naturel que ceux qui ont 
réalisé des travaux importants soient enclin à 
commercialiser le fruit de leur travail. Mais lorsque 
ces personnes profitent de ce qui se fait dans un club 
il semblerait naturel qu’en retour elles fasse don au 
club de quelque pour-cent de leur savoir sans mettre 
en péril leurs produits commerciaux. Si nous avons 
l'honneur de compter deux auteurs d'ouvrages pour 
HP48, parmi nos adhérents, nous n’avons jusqu’ici pas 
pu lire une ligne de leur prose alors que l’un d’eux a 
contribué à une revue, mais qui se vend en kiosque 
donc certainement beaucoup plus publicitaire qu’un 
journal comme JPC. J'espère qu'ils sauront rendre 
caduques ces dernières lignes. 


Les gloutons 


Dans le précédent éditorial Jacques a révélé la fin de 
qualité de dépositaire de JPC d’un magasin qui avait 
assuré ce rôle pendant de nombreuses années comme 
le faisait un autre magasin aujourd’hui disparu et qui 
m’a appris l'existence de JPC : La Règle à calcul. A 
une certaine époque JPC figurait en bonne place à la 
devanture de ces deux magasins. Puis après la 
disparition de la RAC, comme on l’appelait, l’autre 
magasin a profité du manque de concurrence pour 
occuper une place plus importante dans le négoce des 
petites machines HP et cela sous l'impulsion d’un 
vendeur compétent et très dynamique. Celui-ci a dû 
changer d’employeur, malgré ses compétences, car ne 
pouvant passer vendeur à part entière après avoir fait 
largement ses preuves (on en prend un autre et on 
repart à zéro utilisant à plein une certaine loi sur 
lemploi). C’est alors que s’est infiltrée dans ce 
magasin une espèces particulière : les gloutons. Ce 
sont des gens qui ne supportent pas que d’autres 
existent, donc détruisent avec tous les moyens en leur 
possession, entrainant derrière eux les faibles qui ne 
savent pas juger par eux-mêmes. Spécialistes de la 
contre-publicité et du dénigrement ils sont arrivés à 
leurs fins : éjecter JPC du magasin en question. Le 
responsable de ceci est passé de vendeur d’appoint à 
vendeur permanent et semble confondre négoce et 
club car membre du bureau d’un club qui produit de 
façon aléatoire un journal au contenu informel et de 
valeur nullement en rapport avec les prétentions 
affichées (six numéros péniblement sortis en plus de 
deux ans, dont la périodicité actuelle est de six mois 
ne me semble pas un exploit). Je n’entrerai pas dans 
les détails qui sont peu reluisants mais il m’a semblé 
que nous ne pouvions pas recevoir indéfiniment des 
coups de la part de gamins ayant la prétention de 
faire la pluie et le beau temps dans le monde HP48 
(nous ne sommes pas les seules victimes). 





Les librairies miracles pour HP48 





Certains ne jurent que par les librairies. Le gros 
avantage de celles-ci est que leurs fonctions ou 
commandes peuvent être appelables directement quel 
que soit le répertoire actif. Faut-il pour cela faire des 
librairies avec tout? Non, cela ressort de l’absurdité 
pour les raisons suivantes : 


- Chaque librairie a un numéro d'identification et ses 
fonctions ou commandes ont un numéro d’ordre dans 
la librairie. Le problème est celui des librairies dont 
les auteurs s’attribuent sauvagement des numéros 
sans se préoccuper de ce qui existe déjà, ce qui amène 
à une belle collection de désagréments lorsque le 
même numéro est utilisé par plusieurs librairies. Le 
problème s’est encore aggravé avec la sortie des 
HP48G/GX et les programmeurs qui ont doublé les 

















numéros des librairies existantes pour les séries S. Il y 
a aussi ceux qui utilisent des mots de fonctions de la 
rom, leurs fonctions deviennent prioritaires et sèment 
une belle pagaille (exemple sYsEvaL de Pac Math). 


- Lorsqu'il y a beaucoup de librairies dans une 
HP48GX équipée de cartes à forte capacité (carte de 
1Mo par exemple) le temps de disponibilité de la 
machine après l’allumage est loin d’être négligeable et 
même désagréable. 


Je ne vois aucun intérêt de mettre en librairies tous 
les jeux. Celles-ci doivent être réservées aux utilitaires 
dont on se sert très souvent. Si les jeux se présentent 
en France si souvent sous forme de librairies c’est 
pour les protéger des copieurs et aussi pour mystifier 
un peu les naïfs. 


La mise en librairie permet aussi de cacher, des 
regards indiscrets, un contenu subtil dont l'auteur 
désire garder le secret ou à l'opposé n’a pas été créé 
en grande partie par un pseudo-auteur. 


PPC Paris est-il incapable de produire une librairie 
pour HP48 alors qu’il avait réalisé JPC Rom pour 
HP71, module tout en assembleur et même 
commercialisé aux Etats-Unis. Tout d’abord il y a la 
librairie Config Picker publiée dans JPC 92 par Pierre 
de Sacy. Lu Vy Huynh a réalisé une librairie 
permettant de compiler ou décompiler des 
programmes écrits en System Rpl avec les 
mnémoniques de Jean-Michel Ferrard. Cette librairie 
remise au club est très pratique. D'autre part de 
nombreux outils pour fabriquer des librairies existent 
aussi bien sur HP48 que sur PC et la réalisation de 
celles-ci ne constitue pas obligatoirement un acte de 
bravoure comme certains le prétendent, du moins au 
niveau le plus élémentaire. Il aurait été facile de créer 
celle de PPC Paris en mettant dans un même 
répertoire ce qui a été publié dans JPC et en ajoutant 
des compléments pris ailleurs comme certains le font. 
Je pense qu’il était plus raisonnable de mettre à la 
disposition des lecteurs de JPC quelques fonctions, 
pas trop mal programmées et constituant un service à 
la carte suivant les besoins de chacun et surtout les 
capacités mémoire des machines sans possibilités 
d'extensions. Par ailleurs il existe quelques bons 
utilitaires qui ont été paufinés version après version et 
qu'il était inutile de copier. Leur seul défaut est qu’ils 
ne peuvent pas tenir à deux dans une HP48 G ou S. 
Dans un autre contexte (plus de programmeurs) il 
nest pas impossible de concevoir une librairie 
spécifique du club. 





Les serveurs bons serviteurs 


Les serveurs ont rendu et rendent des services que 
nul ne peut sous-estimer mais parfois à quel prix. 
Certains ne sont utilisables pratiquement que par les 
proches qui ne sont pas sousmis aux tarifs dissuasifs. 
Au point de vue téléchargement ce qu’ils proposent 
n’est pas toujours filtré et documenté. Aussi, si par 
exemple pour HP48 la liste des logiciels paraît 
impressionnante, au premier abord, il faut tenir 
compte de ceux qui font double, triple emploi et 
même plus ou des différentes versions dont la plus 
performante devrait seule subsister. D’autre part il y a 
les les librairies qui sont des réarrangements de 
choses prises chez différents auteurs. Et pour 
couronner le tout, une abondance de logiciels non 
documentés donc non utilisables à cent pour cent. 
Quant aux forums ils sont souvent envahis par les 
questions de ceux qui n’ont pas lu les dix premières 
pages du manuel de leur machine et lassent les gens 
compétents qui ne peuvent pas  rabâcher 
continuellement les mêmes réponses. Aussi, si l’on 
fait le compte de ce qui reste de correct après 
plusieurs mois de suivi, c’est assez décevant. Je 
n'insisterai pas sur la formulation des messages où 
trop souvent en France les principes élémentaires de 
l'éducation sont bien bafoués ni sur l'esprit sectaire 
de certains propriétaires de serveurs et de leurs 
émules. Enfin les serveurs ne sont pas 
obligatoirement très favorables à la mémoire : de 
bonnes réponses données il y a quelques mois auront 
disparu car les serveurs n’ont pas des capacités 
illimitées de stockag: 





L’éternel recommencement 


Très souvent les clubs, pour machines telles que les 
nôtres, naissent à partir d’un groupe de jeunes à la 
fois enthousiastes et généreux et qui doivent se 
partager entre leurs études et leur passion. Leurs 
créations n’ont parfois rien à envier aux productions 
commerciales et font le bonheur des autres adhérents. 
Puis ces groupes se disloquent car leurs membres 
sont entrés dans la vie professionnelle et leurs 
motivations pour leurs chères petites machines se 
sont évanouies. D’autre part les modèles de machines 
changent et certains renoncent à réinvestir surtout 
lorsqu'ils leur en a coûté beaucoup en temps et en 
argent. Dans ces conditions les clubs ne peuvent 
subsister que par le renouvellement des groupes 
créateurs et la persistance de certains piliers qui en 
assurent la continuité. Certains esprits tels que les 
gloutons feraient bien de méditer sur ce que sera leur 
cercle (qui a déjà subi des modifications) d’ici cinq ou 
six ans. 
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Il y aurait bien d’autres thèmes à aborder dans ces 
libres propos mais je me suis limité à quelques uns 
relatifs a la vie de notre club. Cela fera peut-être 
naître des réactions et prendre conscience qu’une 
association ne vit et ne peut survivre que par la 


contribution de chacun sous toutes ses formes. 


Guy Toublanc (276) 


PROGRAMMATION : 
MYTHES ET REALITES 


Régulièrement, de nombreux adhérents nous 
expriment leur désir d’apprendre à programmer, mais 
disent avoir abandonné car ils ne comprenaient rien. 
En fait, après une petite discussion, je me rends 
souvent compte qu'ils ont abandonné dès la première 
difficulté. Cet article a donc pour but de casser 
quelques idées reçues, afin de leur faire voir que ces 
dificultées sont plus "culturelles" que réelles (nous 
avons toujours entendu dire que la programmation 
était compliquée, et assembleur encore plus). 


Mais tout d’abord, je pense qu’il est impératif de faire 
la distinction entre les deux grandes notions 
totalement indépendantes de la programmation, que 
lalgorithmique, et les langages : 

- L’algorithmique traite uniquement de la façon dont 
doit être formulé un problème. Elle n’est basée que 
sur quelques concepts simples opérations 
(mathématiques ou actions), tests, boucles et sauts. 
C'est l’arangement de ces concepts qui font le 
programme, pas le langage. 

- Tous les langages ne font qu’utiliser ces concepts. 
Ce qui fait leur différence, cest la syntaxe les 
décrivant, la façon dont sont déclarées et manipulées 
les données, et la richesse des bibliotèques de 
fonctions. 


Ceci dit, passons à quelques réflexions : 


- Si vous ne comprenez pas un listing, demandez vous 
tout d’abord si cest le langage que vous ne 
comprenez pas, où l’agorithme. En effet, il semble 
que beaucoup de personnes soient tout à fait capables 
de décoder les instructions séparément, mais 
incapables de comprendre la logique qui les unit. 
Donc, si vous ne comprenez pas ce listing, n’accusez 
pas le langage, et reportez vous sur un livre 
mathématique (par exemple), pas sur un livre de 
programmation. 


- Un bon programmeur n’est pas celui qui maitrise 
parfaitement l’un et/ou l’autre des domaines, mais 
celui qui sait faire le bon choix du langage à utiliser, 
afin de mettre en oeuvre son algorithme dans les 
meilleurs conditions (facilité et temps de 
développement, performances du programme). Que 
ce langage soit évolué ou non n’a aucune importance. 


- L’assembleur n’est pas plus difficile qu’un autre 
langage. Il demande seulement plus de rigueur (car il 
n'y a plus les "gardes fous" existant dans les langages 
évolués) et plus de travail (car si on ne dispose pas 
d’une bibliothèque de fonctions, il faut la créer). 


- Si vous savez déjà programmer dans un langage, il 
n'y a aucune raison que vous ne puissiez pas en 
apprendre un autre. Cependant, il semble que le 
grand problème des programmeurs expérimentés est 
qu’ils pensent que la difficulté de changement de 
programme est inversement proportionnelle à 
l'expérience. Cela est totalement faux. En fait, mon 
expérience personnelle m'a montré que tout nouveau 
langage, même si il parait plus simple que les 
précédents, implique le réapprentissage TOTAL de la 
façon dont sont gérées les instructions. Par exemple, 
si un test est toujours un test, il est toujours 
accompagné de conditions de mises en oeuvre 
totalement différentes entre chaque langage. C’est 
cela que vous devez apprendre et pas ce qu’est un 
test. Et cela prend TOUJOURS un certain temps. 


- Contrairement à ce que beaucoup croient, un livre 
d'initiation n’est pas la panacée. Pour paraphraser, je 
dirais qu’il est plus efficace d’aller un mois en 
Angleterre pour apprendre la langue, que de passer 
six mois à lire des livres d’Anglais. En revanche, ce 
qui est indispensable, c’est un livre de référence vous 
indiquant la syntaxe exacte de toutes les fonctions, 
ainsi que leurs effets réels (par exemple la doc de sasu 
dans les Goodies Disks 4). 


- Même si l’analyse des sources des autres représente 
un des meilleurs moyens d’apprentissage (c’est bien 
pour cela que nous publions tous ces sources dans 
JPC), ce n’est pas en étudiant les programmes des 
autres que vous apprendrez le plus, mais en 
corrigeant vos propres erreurs. Ce n’est pas non plus 
lorsque vous réussissez à écrire un programme du 
premier coup que vous apprenez. C’est toujours 
lorsque vous cherchez à corriger vos propres erreurs. 


En résumé, le seul moyen d’apprendre la 
programmation (ou un langage) est de se mettre à 
son clavier et de persévérer. Et si les premiers jours 
vous ne comprenez rien, c’est normal ! 


Jacques Belin (123) 
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REMONTEES LEGERES 


Pour remonter de directory en directory, si nos 
HP-28$ ne possèdent pas la commandeup des HP-48, 
beaucoup utilisent le programme du même nom du 
livre Voyage … HP28. Paul Jebeily nous a donné aussi 
sa version dans JPC 90. Toujours soucieux de loger le 
maximmum de programmes dans ma HP2SS, j'ai fait 
ma version, en fait une traduction en System Rpl du 
programme du livre cité et qui est en tout banal User 
Rpl. L'avantage: de 37,5 octets on passe à 22,5 octets, 
c’est toujours cela de gagné. 


UP 
22,5 octets cksum : # D9FEh 


PATH 

DUP 
LENCOMP 
#1- 
NTHELCOMP 
IT EVAL 


Voir la liste des codes dans /e coin des codes. 


Guy Toublanc (276) 





COMPRESSION DES SYSEVALS 
(Acte III) 


La programmation à base de syseval souffre de 
défauts rééls, dont un encombrement mémoire 
relativement important. Il exite différents utilitaires 
destinés à compacter les séquences #nnnnnh SYSEVAL, 
en les remplaçant par l’objet correspondant (voir par 
exemple JPC 96), cependant ils ont l'inconvénient 
d'interdire une édition ultérieure du programme. Mes 
réalisations étant rarement figées mais plutôt en 
constante évolution, cette solution ne me satisfait pas, 
car m’oblige à conserver à la fois la version source 
avec les SYSEVAL, et la version compactée, d’où une 
perte de place à l'inverse du but recherché. Ceci est 
particulierement vrai pour la HP28 : comme pour la 
grande majorité des propriétaires de cette machine, je 
ne dispose pas de possibilité de 
sauvegarde/restauration sur PC (ceci nécessite une 
modification matérielle de la machine, que je n’ai 
jamais entreprise). 


Je vous propose une autre solution, qui bien que 
moins efficace, permet de conserver la possibilité de 
modification des programmes compactés. Il s’agit de 
jouer sur la taille des entiers binaires grâce aux 
fonctions STus et RCWS. En passant d’une taille de 64 à 
20 bits, on gagne 5.5 octets par SYSEVAL. Si vous 
utilisez de façon intensive cette fonction, par exemple 
pour réaliser des calculs sur les Long Real (voir mon 
article Précision étendue sur HP28/48), ce gain n’est 
pas négligable. 


La première idée qui vient à l'esprit est de fixer la 
taille à 20 bits avant de saisir le programme contenant 
les syseva. Malheureusement, cela ne marche pas, 
car la taille des entiers binaires spécifiée par sus 
n’est utilisée par la 28 (ou la 48) que lors de la 
génération d’un résultat par la machine. Les entiers 
binaires placés par Putilisateur sur la pile ou dans un 
programme sont toujours codés sur 64 bits. Il faut 
donc faire appel à un programme. 


Le programme PACKSE (Pack SysEval) réalise cette 
fonction. Il utilise les fonctions coM et -PRG qui 
décomposent et reconstruisent un programme 
(comme LIST- et -LIST pour une liste). Ces fonctions 
pour HP28 et HP48 ont déjà été publiées dans JPC 
87, avec d’autres utilitaires. 


HP2SS : 
COM- 

« # 3F41h SYSEVAL # C610h SYSEVAL » 
-PRG 

« # C53Bh SYSEVAL # 3EEBh SYSEVAL » 
HP48S/G : 
COM- 

« # S4AFh SYSEVAL # 18DBFh SYSEVAL » 
PRG 

« # 18CEAh SYSEVAL # 5445h SYSEVAL » 


PACKSE 
Rcus à rappel de La taille courante 
20 STUS à fixe La taille à 20 bits 
SWAP 
COM à décompose Le programme 
-n à n : nombre d'éléments du prog 
in 
START 
n ROLL à rappel de L'élément suivant 
DUP @ test si c'est un entier binaire 
IF TYPE 10 == 
à oui, ajoute 0 pour Le tronquer à 20 bits 
THEN 0 + END 














NEXT 
n -PRG à reconstruit Le programme 
» 
SUAP 
STuS à restaure La taille initiale 


PACKSE a une limitation : il ne traite pas les objets 
programmes inclus tels que ceux délimités par "«" et 
"»". Sur la HP48, il serait facile de tester le type 
programme (8) et d'appeler récursivement PACKSE 
dans ce cas. Malheureusement, l'instruction TYPE de la 
HP28S ne différencie pas le type programme du type 
commande interne, et je n’ai pas trouvé de façon 


simple de résoudre ce problème. 
Le programme ainsi compacté peut être édité 


librement, cependant le compactage est alors perdu et 
il faut exécuter à nouveau PACKSE. 


Jean-François Garnier (242) 





POUR LE PLAISIR DES YEUX 
LINE & Cie 


Je dédie cet article à Paul Jebeily qui avait publié 
(GPC90) un ensemble très intéressant de 
programmes pour réaliser du graphisme animé ou 
non. 


Dans son article Paul déplorait la lenteur du 
graphisme sur HP-28. Pour y remédier partiellement 
je vous propose quelques commandes en assembleur 
ou en Sytem Rpl. 





L 





E 


Cette commande LINE est réalisée en assembleur et 
remplace avantageusement le programme  SEGHT 
utilisé par Paul. En effet LINE est d’exécution 600 fois 
plus rapide que SEGHT, ce dernier étant appelé souvent 
par d’autre programmes ïil en résulte une 
augmentation de rapidité appréciable de l’ensemble 
et l'exécution des deux programmes de démonstration 
d'animation graphique de Paul (TEST1 et TEST2) 
devient très agéable. 


Programmer LINE en assembleur sur HP-28 est plus 
difficile que sur HP-48 car la mémoire occupée par 
l'écran est divisée en deux parties disjointes 
correspondant aux moitiés gauche et droite de l’écran. 
En plus, les pixels de l'écran ne sont pas adressés en 
continu comme sur les HP-48 mais par colonnes de 
huit pixels. Ceci a pour conséquence d’allonger la 
programmation. Aussi j'ai essayé de réduire le plus 
possible lenconbrement mémoire pour arriver à 
280,5 octets. Il est possible, avec un surplus d’octets 
d'augmenter la rapidité, en particulier avec les 
instructions d’échange entre registres de calculs et 
registres de sauvegarde sur les champs et non avec les 
registres entiers. J'ai préféré me contenter de la 
vitesse annoncée mais avec moins d’octets car je 
pense avoir obtenu un compromis très acceptable. 


Voyons les particularités d'emploi de LINE : 


il faut fournir les coordonnées des extrémités du 
segment à tracer, soit : 


G:Yp €t Cu,Y2) 


le système de coordonnées repose sur la disposition 
suivante et est indépendant de PPAR : 





Ce choix se justifie pour les raisons suivantes : 


- Trois autres commandes utilisent de façon naturelle 
ce système. Pour éviter les confusions il est donc 
nécessaire de s’en tenir à un seul sytème. 


- Il m'a semblé que ces commandes seront utilsées 
plutôt pour du graphisme de divertissement que pour 
des tracés purement mathématiques. Paul nous en a 
fourni de bons exemples. Cela n’exclut pas que LINE 
sera utile, par exemple, pour tracer des asymptotes. 


Pour gagner de la rapidité et des octets il sera bon de 
construire les programmes de graphisme en pensant 
au système de coordonnées de LINE. Sinon on pourra 
toujours faire des transformations de coordonnées. 
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Si le système de coordonnées est le suivant : 


Pour utiliser LINE il faudra faire : 


« (68,16) 
ROT  CONJ 


SVAP CONJ OVER + 
ROT - LINE DROP2 » 


Les programmes de Paul Jebeily fonctionnent avec les 
PMIN (1,1) et PMAX (137,32) donc le système suivant : 


Ainsi en remplaçant la variable SEGMT par : 


« (C-1,32) 
ROT CONJ 


SVAP CONJ OVER + 
ROT + LINE DROP2 » 


Sans modifier les autres programmes, les démos vont 
à merveille. Le DRoP2 élimine les coordonnées après le 
traçage car celles-ci sont laissées sur la pile par LINE. 
Cette dernière possibilité permet de les réutiliser 
éventuellement pour d’autres tracés (par exemples 
carés, rectangles etc. 








Le plus rationnel serait de travailler directement avec 
le système de coordonnées de LINE pour éviter les 
conversions et ainsi gagner en octets et vitesse. 


Enfin, pour la disposition suivante, il suffira de 


remplacer dans les programmes ci-dessus le nombre 
complexe, au début, par (0,31). 


0 136 


En armant le flag 9 on peut effacer une ligne au lieu 
de la tracer si ce flag est désarmé. Donc les portes de 
Vanimation graphique sont ouvertes avec des 
polygones de toutes natures. J’ai choisi le flag 9 pour 
raison mnémotechnique : 9 (neuf) pour mise à neuf 
ce qui est simple à retenir. 


LINE met la vitesse maximale de la HP-28 comme la 
commande SPEED donc pour revenir à la vitesse 
normale il faudra utiliser la commande sporr. Si vous 
ne l'avez pas, voici ma version en 17 octets au lieu de 


20 octets pour les versions habituelles. 


SPOFF 
17 octets checksum : # 8FF9h 
CODE 

ad0ex 

d0=(5) #fff00 

lchex 8 

datO=c 1 

goving #03801 
ENDCODE 


Revenons au programme LINE. Pour qu’il soit rapide il 
faut employer un algorithme de calculs en nombres 
entiers. Comme pour les tracés de cercles c’est celui 
de Bresenham qui convient. Sans entrer dans tous les 
détails voici le principe : 


Les extrémités du segment de droite à tracer étant : 


CeYp) Et Go:Y2) 


ona: 
KES 
KEY 
1x = (X - Xp) 
AY = O2 7 Y1) 
sy = Signe de (x) - x) 





s = Signe de (y2 - 1) 


si Ay > 4x alors échange 4y <-> 4x 
drapeau = 1 
ou bien drapeau = 0 


err = 2*Ay - 4x 


pour i = 1 à Ax 
allume (x,y) 
tant que err positive 
Si drapeau = 1 alors 
Kiel, © NET 
ou bien 
Yix1 Yi * S2 
err = err - 2*Ax 
fin de tant que 




















si drapeau = 1 alors a=dat0 1 * flags 12 à 9 
Mai = +9 etrst * intilialise st 2 et 3 
ou bien ?abit=0 0 * 9 FC? 
Xa1=X+S goyes  Lineon * oui alors on allumera 
err = err + 2*Ay st=1 3 * pour Ligne à effacer 
Lineon 
Pour des explications plus approfondies vous pourrez c=dati a * adresse complexe niv.1 
consulter par exemple l’ouvrage de David F.Rogers : gosub pop&conv  * X2 : conversion en hexa 
Algorithmes pour l’infographie (éditions McGraw-Hill) ré=c * sauve X2 -> R4 
gosub  popim * conversion Y2 en hexa 
Du fait de la possibilité d’avoir des coordonnées r0=c * sauve Y2 -> RO 
négatives et celles-ci étant converties en nombres do=d0+ 5 * à 2ième niveau 
hexadécimaux, il faut que ces derniers soit signés ce c=dat0 à * adresse 1er complexe 
qui sera reconnu par le bit de poids fort du champ A gosub pop&conv * X1 : conversion 
dans les registres. Aussi les coordonnées dont la r2=c # sauve X1 -> R2 
valeur absolue est supérieure ou égale à 10000 sont gosub  popim * conversion Y1 en hexa 
divisées par 10 donc le maximum accepté est 9999 ce r3=c * sauve Y1 -> R3 
qui par rapport aux dimensions de l'écran est ré. a=r0 * ve 
?a#c a #Y2e Y1? 
Voici le programme miracle : goyes  okline 
okline c=r4 * x2 
RER a=r2 * x1 
* LINE pour HP28S * goc Line # si test okline 
* 280,5 octets cksum # A943h * ?a#c a * xX1 & X27 
* * goyes Line * oui Ligne traçable 
* auteur Guy Toublanc Le 26/06/199%  * ar3ex 
x # goto point * non alors 1 point 
* syntaxe : À 
* niveau 2 : € X1, Y1 ) origine du segment * Line P= 4 * pour test des signes 
Æ niveau 1 : ( X2, Y2 ) extrémité du segment * gosub XY * 2[x2-X1| signe -> A(S) 
* # d=c “ * sauvegarde pour index 
ar3ex * sauvegarde 2[X2-X1| 
x1, Y1, X2, Y2 : réels * e=r0 *Y2 az:=1 





* 
* 
* Les extrémités P1 et P2 quelconques dans Le plan 
* 
“ 


: gosub XY * 2[Y2-Y1| signe -> A(S) 
complexe # ?d<c a # delta X < delta Y 

è goyes  dx<dy 
* sytème de coordonnées absolues : * cdex a * non alors permutation 
* * st=1 2 * et repère avec ST 2 
* Ce > 136 * ar3ex * et échange des deltas 
* | *  dx<dy 
* | * ré=c * sauve 2DX (ou 2DY) 
* ll * r2za * sauve X1 (ou Y1) 
* 31v # cdex a * échange 2DX<->2DY 
* Sd rû=c * sauve 2DY (ou 2DX) 
* flag 9 désarmé : Ligne tracée * dsrb * [x2-X1] Cou [v2-Y11) 
* flag 9 armé  : Ligne effacée * e=c-d a * err= 2DY - DX 
* * b=c a * sauve err 
* fichier source compilable sur PC par RPLCOMP de HP* d=d-1 a * départ pour compteur 


ARR 


ARR RAA HR 





CODE LA ” 
gosbvl  =SAVPTR * Boucle de tracé des points de La Ligne sauf Le * 
c=0  # * pour initaialiser * dernier point. * 
c=c-1 a * ca) := FFFFFh * suivant que La pente est inférieure ou * 
0  b # ca) := FFFO0h * à 45° Le tracé se fait suivant Les abscisses  * 
do=c * à speed * ou Les ordonnées * 
datO=c xs * pour speed maxi * * 
d0=(5) #e0111 + à flag 9 PRES 
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Loop 


Loop2 


x2>x1 


tst 





goyes 
a=a-con 


y2>y1 
r2=a 
e=r0 
b=b+c 
d=d-1 
gonc 


gosub 
goving 


point 


plot  p= 
c=r3 
2st=1 
goyes 
acex 
norm 
di=c 
Lecs) 
?c<a 
rtnyes 
LeC2) 
?c>=a 
goyes 
a=a-c 
Left 


Lchex 
gonc 
Lchex 


right 
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plot * 
4 * 
3 * 
tst F 


* 


* 


à * 
: * 
ye>y1 * 
a,2 * 
* 
s à 
a 
Loop * 
plot * 
=GETPTRLOOP 
0 * 
* 
2 * 
norm 
6 * 
136 
ü * 
67 
b * 
Left * 
4 * 
ffbf8 * 
right * 
840 * 
a 
a 
à * 
à * 
* 
* 
31 
à * 


trace Le point Xi,Yi 
pour test de signes 
while err >= 0 


20X 
xi 


xi+1 

X2 >= X1? 

oui Xi+1 = Xi + 1 
non : Xi#1 = Xi - 1 


err = err - 2DX 


sauve Xi+1 





end while AÇA) 
Yi+1 


Y2>= 17? 

oui Yi+i = Yi +1 
non : Yi#1 = Yi - 1 
sauve Yi+1 

2DY 

err = err + 2 DY 


* actualise index 


point suivant 


dernier point et sortie 


ACA) := Yi Cou Xi) 
Xi Çou Yi) 
DY >= DX ? 


non : permutation 
sauve Yi 


Xi > 136 ? 
oui on fait rien 


xi <= 67? 
oui demi écran gauche 
Xi pour 1/2 écr. droit 


adresse 1/2 écr. droit 
si Xi > 67 saut écr-dr 
FF840 pour 1/2 écr-g 


colonne pour Xi 
adresse colonne 





à colonne A(A) : 
sauve Yi 


Yi>317? 


Loopé 
decr 


pixon 


pixon2 


popêconv 


popim 


exppos 


exp 


rtnyes 
asrb 
asrb 
cdiex 
c=c+a 
cdîiex 
ad0ex 
Lchex 
a=a8c 


csr 








3 


P 
a 


decr 


P 


Loopé 


b 
3 


pixon 
P 


P 
pixon2 
P 


1 


4 


500 

x 
exppos 
a 

15 
convrtn 


003 
x 
exp 
x 


14 


* MO + * 


* 


* 


oui on ne fait rien 


Yi en quartets 

adresse colonne 
adresse quartet pour Yi 
4 quartet Yi 

vi 


Yi modulo 4 

récupère 1 de 1F (31d) 
départ pour position 
position pixel dans nib 


compteur 


quartet du pixel en mem 
PIXON ? 


inversion pour PIXOFF 


OR pour PIXON ou PIXOFF 


* saut pour PIXON 


* 


* 


* 


* 


* 


* 


x 


inversion pour PIXOFF 


quartet modifié 


à prologue 


sauve D1 


à exposant 


exposant 


exposant positif ? 


0,. 
pour partie imag. 


arrondi à 0 





si exposant > 3 
alors exposant = 3 


* & digit de poids fort 


M 


* 


+ 





AGA) := D1 
CCA) := exposant 
P := exposant 


adresse digit de poids 
faible (mantisse) 


mantisse 

sauvegarde 
initialisation 
adresse après mantisse 














di=c * à Le signe 
p= 0 
c=0 a 
lchex 6 # 3e cste de conversion 
rstk=c * sauvegarde 
lchex 9e + 2e cste de conversion 
rstk=c * sauvegarde 
lchex  c18 # le cste de conversion 
P= 3 #* compteur pour Loop5 
Loop5 ab  p * et pointeur de digits 


* 


gonc decr3 départ conversion 


Loop3 d=dte a 
decr3 a=a-1 p 
gonc  Loop3 
p=p-1 * position suivante 
2p= 0 * plus de digits ? 
goyes  cont * alors sortie de Loop5 
c=rstk * dépile constante suiv. 
gonc  Loop5 * tour suivant de boucle 
cont c=d a 
b=b-c a * résultat en hexa 
a=dat1i 1 * signe 
2a=0  p # positif ? 
goyes pos 
b=-b a * si non entier signé 
pos 
convrtn c=b a * nombre converti 
rtn 
xY c=c-a à * ici P=4 AS) := 0 
2-0 pp * différence positive ? 
goyes  xy2>xy1 
asa#i s * sinon A(S) := 1 
c=-c a * et valeur absolue 
xy2>xy1 
c=cte a * 2*ABS(différence) 
rtn 
ENDCODE 


Certains programmes de Paul peuvent être simplifiés 
ou même supprimés. Par exemple VERTIC et HORIZ ne 
se justifient plus. Le programme SEGHT ci-dessus ou 
tout simplement LINE, suivant le cas, feront la même 
chose que VERTIC ou HORIZ mais nettement plus vite. 
LINE nous fait gagner plus de 140 octets sur la somme 
des 3 programmes SEGMT + VERTIC + HORIZ. 


Remarques : 


Le programme LINE en 280,5 octets ne vérifie pas la 
présence et le type des arguments pour ne pas 
augmenter lencombrement mémoire. Cela ne 
présente que le risque de faire des graphiques 


inattendus si les 2 nombres complexes nécessaires ne 
sont pas sur la pile. Vous serez prévenus. 


LINE travaille avec des nombres complexes dont les 
réels les composant sont arrondis par défaut en 
nombres entiers (donc toujours dans le même sens). 
Un arrondi au plus près améliore parfois l’aspect des 
tracés mais pas systématiquement. C’est ainsi que les 
démos de Paul ont une partie des graphiques plus 
agréable à l’oeil en modifiant le programme SEGMT 
ci-dessus de la manière suivante : 


« (1,32) SVAP CONJ OVER + 0 FIX RND ROT 
CONJ ROT + RND LINE 2 FIX DROP2 » 


après arrondi le 2 FIX est restauré pour les autres 
programmes appelés pour les démos. Peut-être qu’il y 
a une solution pour éviter ces changements de format. 


LES TROIS MOUSQUETAIRES 


Nos HP-28 ne connaissent pas les fonctions des 
HP-48 : PIXOFF et PIX? permettant d’éteindre un point 
de l'écran ou de connaître son état (allumé ou éteint). 
Paul Jebcily dans son travail cité ci-dessus avait, je 
pense, essayé de remédier à cette lacune. En ce qui 
concerne PIXOFF on trouve dans le livre Voyage …….. 
HP28 le programme UNPIXEL pour 139 octets. Je vous 
propose PIXoFF pour 22,5 octets mais dont les 
coordonnées sont 2 réels pour le système suivant qui 
est celui utilisé par les programmes graphiques 
internes de la machine : 


Ce système sera aussi celui utilisé par PIXON, PIX? donc 
pour ceux qui travaillent avec la disposition habituelle 
de l’origine des coordonnées au centre de l'écran, il 
faudra transformer les coordonnées de la manière 
suivante : 


X=x - 66 
Y=16-x 


qui est identique à ce qui a été exposé ci-dessus pour 
LINE. 


Ces programmes sont relativement rapides. Ainsi 
PIXoN est 11 fois plus rapide que PIXEL. Pour PIXON 
remplaçant PIXEL dans le programme HOR1Z, de Paul, 
le tracé d’une horizontale sur toute la largeur de 
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l'écran se fait 2,2 fois plus vite .avec PIXON qu'avec 
PIXEL. 


Ces fonctions nécessitent toutes deux arguments : 


niveau 2: X 1 réel 
niveau 1: Y 1 réel 


dans le système de coordonnées défini ci-dessus. 


PIXON fait donc la même chose que PIXEL. Voici son 
fichier source. 


PIXON 
22.5 octets checksum : # 6D07h 


CK2NOLASTWD 
Dispatch1 
SEVENTEEN 


COERCE2 
PIXON 


PIXOFF a l'effet inverse de PIxON et sera utile à ceux qui 
feront de l’animation graphique avec des créations et 
disparitions de motifs graphiques, par exemple le 
train pour HP-48 paru dans JPC 97. 


PIXOFF 
22.5 octets checksum : # C314h 


CK2NOLASTHD 

Dispatch1 

SEVENTEEN 
COERCEZ 
PIXOFF 


Enfin le troisième compère Pix? pour tester l'état 
d’un pixel : si allumé 1 est renvoyé, sinon 0. 


PIX? 
25 octets checksum : # D2FEh 


CK2NOLASTUD 
Dispatchi 
SEVENTEEN 


COERCE2 
PIX? 
COERCEFLAG 
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Avec ces trois nouvelles fonctions les gens amateurs 
d'animations graphiques et de jeux devraient pouvoir 
nous concocter quelques programmes pour le plaisir 
des yeux ou le divertissement. 


Sauf erreur de ma part, je pense que ces trois 
fonctions (pour 22.5*2 + 25 = 70 octets) devraient 
pratiquement remplacer l’ensemble des variables du 
répertoire GRAPH (hormis le sous-répertoire OBJETS) de 
notre ami Paul et publié dans JPC 90. Si cela était le 
cas l’économie d’octets et le gain de rapidité seraient 
très appréciables car ces fonctions opérant 
directement sur l'écran elles évitent les conversions 
via LCD- et -LCD et le travail sur des chaînes. Peut-être 
des articles en perspective? 


Remarque : 


Les quatre commandes ci-dessus sont indépendantes 
de PPaR, c’est donc à vous de gérer les problèmes 
d'échelle si vous ne travaillez pas directement avec 


leur système de coordonnées. 


Voici les adresses nouvelles par rapport à ce qui est 
paru précédemment dans JPC : 


PIXON  # 1ADFEh 
PIXOFF # 1ADF2h 
PIX? # 1AEC8h 


POLYGORNES tous azimuts 


Pour ne pas perdre trop de rapidité en traçant des 
polygones voici un programme en majorité en System 
Rpl. En fait ce sont trois commandes en une seule et 
relatives aux polygones réguliers inscrits dans un 
cercle. C’est l'équivalent des programmes POLYG et 
ppoLy de Paul Jebeily, avec d’autres possibilités et ne 
faisant appel qu’au programme LINE. Ce qu'il fait : 


- traçage d’un contour polygonal. 

- traçage d’une surface polygonale. 

- traçage de la surface polygonale comprise entre 
deux plygones semblables et concentriques. 


Lorsque le flag 9 est désarmé il y a traçage sinon avec 
le flag 9 armé les polygones ou les surfaces 
polygonales sont effacées. 


Le système de coordonnées est celui défini pour les 
autres commandes ci-dessus. 


Syntaxe : 
niveau 3 : ( Xc , Ye ) centre du polygone 
niveau 2: (R ,r ) rayons des cercles 














circonscrits 
Cn, phi ) n nombre d'arêtes 
phi angle de déphasage 


niveau 1 : 


- Xe, Ye : réels quelconques 

-R:rayon du cercle circonscrit au contour extérieur 
de la surface polygonale. 

-r:rayon du cercle circonscrit au contour int 
de la surface polygonale. 

-R, r : réels positifs \-n:nombre d’arêtes des 
contours polygonaux. 

- phi : angle de déphasage en radians. 





eur 


Xe, Ye) 


Si R et r sont inversés, le remplissage entre les 
contours polygonaux sera aussi inversé donc de 
l'intérieur vers l'extérieur (voir les exemples). 


On pourra obtenir : 


- avec R = r : un simple polygone. 
-avecR<>0 et r=0 : un 
remplissage vers le centre. 
-avecR=0 et r<>0 : même polygone mais 
remplissage du centre vers l'extérieur. 

-avecR <> Oetr <> 0 : surface polygonale évidé si 
R > r': remplissage vers le centre sinon l'inverse. 


polygone plein. 


On voit qu'il est possible de faire des fondus 
enchaînés et autres effets sachant qu’en manipulant le 
flag 9 on peut créer des images progressivement 
construites puis effacées. Dans certains cas on pourra 
faire directement des animations graphiques. Pour les 
autres cas il faudra utiliser une méthode comme celle 
de Paul, par exemple. 


Voici donc ce programme relativement compact et 
rapide. 


POLYG 
157,5 octets cksum : # 417Ch 


XCR 

PI %2 %* 3PICK %/ 

ROT COERCE 4UNROLL ROT 

XxC>R 2DUP %> ITE %-1 %1 SUNROLL OVER %- ZABS 
COERCE 4UNROLL 4UNROLL 

€ NULLLAM NULLLAM } BIND 


#1+ 
ZERO_DO (DO) 
DUP 2GETLAM %>C% xP>R 5PICK x+ CXRND 
4PICK 
ZERO_DO (DO) 
OVER 
2GETLAM 1GETLAM %+ DUP 2PUTLAM 
%>CX xP>R 6PICK x+ CARND 
1D LINE SWAPDROP 
LOOP 
DROP OVER %+ 
LOOP 
4DROP 
ABND 


Exemples d'utilisation de POLY6 : 
Tracé d’un simple hexagone sur la hauteur de l'écran. 


« (68,16) (18,18) (6,0) CLLCD 9 CF POLYG » 

Tracé d’un carré plein par remplissage des bords vers 
le centre puis effaçage du centre vers les bords. Ce 
carré est centré ct horizontal. Sa hauteur est égale à 
celle de l'écran (32 pixels). 


« (68,16) 4 7 -NUM 4 / R-C DUP2 (22,0) 
SWAP CLLCD 
9 CF POLYG (0,22) SWAP 
9 SF POLYG 
9 CF CLMF 


Puis même déroulement mais pour un pentagone. 


« (68,15) (5,.28) DUP2 (18,0) 
SWAP CLLCD 
9 CF POLYG (0,18) SWAP 
9 SF POLYG 
9 CF CLMF 


Cette fois, l'effaçage se fait des bords vers le centre. 


« (68,15) (18,0) (5,28) 3 DUPN CLLCD 
9 CF POLYG 
9 SF POLYG 
9 CF CLMF 


Même déroulement mais pour un hexagone non 
totalement plein. 


« (68,16) (18,6) (6,0) 3 DUPN CLLCD 
9 CF POLYG 
9 SF POLYG 
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9 CF CLMF 


Animation par rotation d’un pentagone inscrit dans 
un autre pentagone. Arrêt du programme par appui 
sur une touche autre que ATTN 


ANIM 
206 octets cksum : # FO0Ch 


« (68,15) DUP (18,18) (5,28) CLLCD 
9 CF POLYG 
(13.6,13.6) (5,0) 
Do 
O x -NUM 7 / R-+C + 3 DUPN 
POLYG .25 WAIT 3 DUPN 
9 SF POLYG 9 CF 
UNTIL 
KEY 
END 
4 DROPN CLMF 


Programme de démonstration TEST1 de Paul Jebeily. 
Il suffit de faire la transformation suivante : 


« « 4 DUPN DROP2 (4,0) POLYG O SWAP R-C + POLYG » 
€ (68,15) (15,15) (6,0) } 2 x * 11 / 10 CLLCD 
FAMIROT ROTIMG » 


En supposant le flag 9 désarmé, la démo TEST1 (189 
octets cksum : #AE07h) s'exécute rapidement et pour 
le plaisir des yeux. 


Programme de démonstration TEST2 de Paul Jebeily. 
Il suffit de faire la transformation suivante : 


« « SPEED 4 DUPN 4 DUPN 4 ROLL 30 - 4 ROLLD 
SWAP DROP 2 SWAP 3 * NEG R-C POLYG 4 ROLL 
30 + 4 ROLLD ROT C-R DROP O R-C 3 ROLLD SWAP 
DROP 4 SWAP 6 * 4 / NEG R-C POLYG R-C POLYG » 
€ (68,15) (15,15) 6 }> x 3 / 11 / 10 CLLCD 
FAMIROT ROTIMG » 


cksum 





Ce programme TEST2 (275,5 octets 


# AEFBh) va aussi à merveille. 
CERCLES, ANNEAUX, DISQUES sans peine 


Produire des cercles ne se fait pas rapidement avec le 
langage utilisateur des HP28. Pour y remédier voici 
RING, un programme polyvalent permettant de générer 
et d'effacer des cercles, anneaux et disques avec les 
mêmes fonctionnalités que POLYG ci-dessus. Il peut 
remplacer les programmes CERCL, PCERCL et DCERCL de 
Paul. 


C'est très rapide et même si rapide qu’il faudra 
parfois utiliser des temporisations pour certains types 
d'animations. L’algorithme utilisé est encore celui de 
Bresenham et la programmation est adaptée de celles 
des programmes CIRCLE et RING que j'avais écrits pour 
HP-48 (IPC 78). 


ARR A 


* RING pour HP28S * 
* 321,5 octets cksum # 5D77h * 
“ * 
* auteur Guy Toublanc Le 28/06/199%  * 
* * 
* 1ère syntaxe : * 
* niveau 2 : R rayon du cercle * 
* niveau 1 : ( Xc , Yc ) centre du cercle » 
* “ 
* 2ème syntaxe : * 
* niveau 2: (CR, r ) rayons de L’anneau * 
* niveau 1: (Xe , Ye ) centre du cercle * 
* “ 
* si R> r tracé de l'extérieur vers Le centre * 
* si R<r tracé du centre vers l'extérieur * 
* * 
* Xc, Ye : réels quelconques * 
*R,r : réels positifs * 
* * 
* sytème de coordonnées absolues : * 
* * 
* Q > 136 * 
* | * 
* | * 
* | * 
+ 31v * 
* * 
* 9 CF : cercle ou anneau tracé * 
* 9 SF : cercle ou anneau effacé * 
* * 


* fichier source compilable sur PC par RPLCOMP de HP* 


AR ARRE A 








CODE 
gosbvl  =SAVPTR 
c=0  n # pour initaialiser 
e=c-1 a # cCa) := FFFFFh 
c=0 b * c(a) FFFO0h 
d0=c * à speed 
datO=c xs * pour speed maxi 
cirst * intilialise st .... 
d0=(5) #c0111 * à flag 9 
a=datO 1 + flags 12 à9 
?abit=0 0 * 9 FC? 
goyes circleon * oui alors on allumera 
st=1 3 * pour cercle à effacer 
circleon 
c=dati a * adresse complexe niv.1 
gosub  pop&conv * Xc : conversion en hexa 
r3=c * sauve Xc -> R3 

















gosub  popim * conversion Yc en hexa 

r0=c * sauve Yc -> RO 

do=d0+ 5 * à 2ième niveau 

c=dat0 a * adresse R 

gosub  pop&conv * R : conversion 

r2=c * sauve Y = R -> R2 

0 * R seul ? 

goyes  Ronly 

gosub  popim * conversion r 
Ronly 

a=r2 “+ 

cza-c à ART 

gonc  R>r 

st=1 1 *pourR<r 

c=-c a * valeur absolue 
Rr 


ARR AIACIHARI RH RH R 





* “ 
# Boucle de tracé des cercles successifs Æ 
* * 
* en entrée : * 
* * 
* * 
* “ 
* £ * 
“ ST1=0 :R>r * 
ie STÜ=1 :R<r * 
x ST3 = 0 : pixels allumés * 







* ST3 = 1 : pixels éteints * 


ARR 


gLoop 


rstk=c * sauve [R-r| et index 





résa * sauve R AC) :=Y=R 
azata 

c=0 

rise * départ X=0 sauve X 
Lchex 

c=c-a à *d=3-2%*r 

de a * sauve d 

cri * CCA):EX 

goto start * départ tracé 


ARR 


* Boucle de tracé d’un cercle * 
* algorithme de Bresenham * 
* avec un point calculé (X,Y), Les symétries  * 
* permettent de tracer huit points * 
* * 


AAA 


Loop  gosub  plot * tracé de 8 points 
P= 4 
ezr1 *x 
?d#0 pp 
goyes … dnegat 


dnegat 


start 


next 


R>>r 


out 


negyy 


XYEXX 


plot 
Loop2 


negy 


xyex 


crèex 
c=c-1 


cr2ex 
c=c-b 
c=c+c 
c=c+c 
P= 
d=d+e 
d=d+con 
cz=r1 
c=c+1 





Fr 
a=r2 
c=c-a 
goc 
c=r1 
?c#a 
goyes 
gosub 
c=rstk 
c=c-1 
goc 
azr4 
a=a-1 
?st=0 
goyes 
a=a+con 


r2=a 
goto 
goving 


e=r1 
c=-c 
ri=c 
goto 
c=r1 
c=-c 
ri=c 
goto 


st=0 
gosub 
goc 
gosub 
e=r2 





e=r1 


cr2ex 
c=-c 
ri=c 
?st=1 
rtnyes 


ä “ 
a * 
* 
É, * 
a 
a * 
0 
a 
2,6 *“ 
a “ 
“ 
* 
a * 
Loop * 
* 
a * 
next * 
plot * 
“ 
a * 
out * 
* 
ë “ 
1 * 
R>>r * 
a,2 * 
“ 
gLoop 
=GETPTRLOOP 
* 
& “ 
* 
negy * 
a * 
* 
xyex 
0 * 
plotxy F 
negyy 
Lx 
* 
a * 
* 
plotxy2  * 
xyexx 
Lx 
* 
£ * 
* 
0 “ 


Fe 
sauve YŸ 
sauve Y 
X:=X-7Y 


Ci=X 


4x 


= 

X<Y 2 alors Loop 
x 

Xe Y# 

alors sortie 

encore tracé 
épaisseur anneau 
restante 

nulle alors sortie 

R 

pour Le cercle suivant 
R>r 

oui alors c'est bon 
sinon incrémentation 


sauve YŸ 





ces divers segments 
de programme 
effectuent Les 
permutations entre X 
et Y et changements 
de signe pour obtenir 
par symétrie 8 points 


marque 1er tour 


x 

Yi=Xx 
X := -Y 
sauve X 

2e tour ? 
alors retour 
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st=1 0 











gonc  Loop2 
Lx ezri 
e=-c a 
rise 
pLotxy 
e=r2 
plotxy2  a=r0 
a 
31 
a 
rtnyes 
di=a 
azri 
e=r3 
asatc à 
Le(5) 137 
?a<c a 
goyes  Xok 
rtncc 
Xok le(2) 67 
ea b 
goyes Left 
asc à 
Left 
lchex  ffbf8 
gone right 
lchex 840 
right 
asata à 
asata à 
a 
a 
a 
3 
p 
1 
decr 
Looph  e=ctc p 
decr  a=a-1 p 
gonc  Loopé 
asdati b 
2st=0 3 
pixon 
azalc p 
goc  pixon2 
a=-a-1 p 





* 


* 


* 


* 


* 


* 


* 


marque 2e tour pixon2 


encore symétrie 


popRconv 
œ 

Yc 

Yi 


Yi > 317? 

oui on ne fait rien 

sauve Yi 

x real 
Xe 

xi 

ex 136 

Xi < 137? 


popim 


xi <= 67? 
oui demi écran gauche 
Xi pour 1/2 écr. droit 


adresse 1/2 éer. droit 
si Xi > 67 saut écr-dr 
FF840 pour 1/2 écr-g 


exppos 


exp<k 
colonne pour xi 
adresse colonne 


* à colonne açA) =: Yi 


* 


x 


* 


* 


* 


* 


sauve Yi 


Yi en quartets 

adresse colonne 
adresse quartet pour Yi 
à quartet Yi 

vi 


Yi modulo 4 
récupère 1 de 1F (314) 
départ pour position 


# position pixel dans nib 


* 


* 


* 


* 


* 


* 


compteur 


quartet du pixel en mem 
PIXON ? 

Loop5 
inversion pour PIXOFF 


OR pour PIXON ou PIXOFF 
saut pour PIXON 


Loop3 
decr3 
inversion pour PIXOFF 


dati=a 
rtncc 


cdiex 
do: 
a=dat1 
a=a+a 





a=ata 
st=0 
gonc 
st=1 


di=di+ 


a=b 
gonc 


d=d+c 
a=a-1 
gonc 


© w vs » 


real 


15 
convrtn 


003 
x 
exp 


œ 


9e 


c18 
decr3 


p 
Loop3 


* 


quartet modifié 


* à prologue 
sauve D1 


* 


* 


pour réel 


* pour complexe 


* à exposant 


* 


exposant 


* 


exposant positif ? 


arrondi à 0 
* pour partie imag. 





si exposant > 3 


* 


alors exposant = 3 


* 


à digit de poids fort 
acA) =: D1 

* CCA) =: exposant 

* P =: exposant 

* adresse digit de poids 
faible (mantisse) 


* 





* 


* 


mantisse 
* sauvegarde 


* 


initialisation 
adresse après mantisse 
à Le signe 


* 


* 


* 


3e cste de conversion 


* 


sauvegarde 


* 


2e cste de conversion 


* 


sauvegarde 


* 


le cste de conversion 
compteur pour Loopÿ 


* 


* 


et pointeur de digits 
départ conversion 
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p=p-1 # position suivante 
?p= O0 * plus de digits ? 
* 


goyes  cont alors sortie de Loop5 





c=rstk * dépile constante suiv. 
gonc Loop5 * tour suivant de boucle 
cont a 
a * résultat en hexa 
1 * signe 
P * positif ? 
pos 
a * si non entier signé 
pos 
convrtn c=b a * nombre converti 
rtn 
ENDCODE 


A titre d’exemple, voici deux petites démos montrant 
les possibilités de RING. 


DEMO1 trace puis efface deux familles de cercles 
symétriques. Le sous-programme contenu dans DEMO1 
est évalué une première fois pour le tracé des cercles 
avec le flag 9 levé, puis est évalué une seconde fois 
avec le flag 9 baissé pour l’effaçage de ce qui a été 
tracé précédemment. C’est très rapide et cette démo 
pourrait être améliorée avec des temporisations. Il 
suffit d’activer DEMO1 pour voir cette animation. 


DEMOI 
130,5 octets cksum : # 730Bh 


« CLLCD 
« -68 68 
FOR i 
î ABS i O R-C (68,15) + 
RING DROP2 3 
STEP 
9 CF DUP EVAL 
9 SF EVAL 
9 CF CLMF 


DEMO? çst similaire mais trace et efface des anneaux au 
lieu de cercles. 


DEMO2 
145,5 octets cksum : # A2CDh 


« CLLCD 
« -68 68 
FOR i 
i ABS DUP 2 - O MAX R-C 
0 R-C (68,15) + 
RING DROP2 4 
STEP 


9 CF DUP EVAL 
9 SF EVAL 
9 CF CLMF 


Vous trouverez les listes de codes des programmes 
dans /e coin des codes. 


J'espère que quelques utilisateurs de HP-28 sauront 
nous faire profiter de leurs créations en matière de 
graphisme et d’animation à l'instar de Paul Jebeily qui 
aura peut-être avancé ses projets dans ce domaine. 


Remarques importantes : 


On aura toujours à l'esprit le système de coordonnées 
avec lequel fonctionnent toutes ces fonctions. La mise 
à l'échelle, éventuellement, sera à gérer par vous. 
Tous les programmes ci-dessus fonctionnent sans 
rapport avec PPAR. Il faudra aussi se rappeler le rôle 
important du flag 9 (commun à LINE POLYG et RING). 
On vérifiera avec soin le nombre et le type des 
arguments fournis,car dans un souci d’allègement de 
programmation ces vérifications n’ont pas toujours 
été incluses dans les programmes ou seulement 
partiellement. Vous aurez été prévenus. 


Guy Toublanc (276) 
Annexes 


Avec les programmes ci-dessus je pense que certains 
des programmes de Paul Jebeily (JPC 90) seraient à 
modifier pour bénéficier de la plus grande rapidité 
des nouveaux venus. Cela ne peut se faire que par 
quelqu'un qui en a bien saisi le mécanisme. Pour ma 
part je me suis contenté de traduire bêtement, en en 
mixant System Rpl et User Rpl, quelques-uns des 
programmes pour réduire l'encombrement mémoire. 
Voici à titre d'exemple le programme ROTIMG qui 
regroupe ROTIMG, LPGROT et LTCHROT, faisant gagner 
environ 500 octets et légèrement de rapidité. 





EE 
# ROTIMG a 
+ 638 octets  cksum #FA36h * 
* remplace ROTIMG LPGROT LTCHROT avec OFF intégré * 
* pour ceux-ci voir L'article de Paul Jebeily dans* 
* _JPC 90 pages 7 et 8 * 


ARR AII DD IRIRRRD 


ASSEMBLE 
=0FF equ #18e58 
RPL 


XDUP xSIZE DUP %0= 
IT :: 2DROP XABORT ; 
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BEGIN 

2DUP 1D PMAIT XSIGN DUP xNOT %+ %* 
5: DO>LCD ID PHAIT %ABS xXWAIT ; 

ID LSTX xKEY %0<> 

+ 





S1S25354$5$6s758S9 
S. = 5 +8 $* S/ S_CHS ms" man no" } 

SMAP xPOS %1 %+ 

1 ID PMAIT ‘ ID STP.W 

€ :: 2DROP 2.20000000000E002 1 .00000000000€-01 

2DUP DOBEEP 2DUP SWAP DUP %+ SWAP DOBEEP DOBEEP ; 

-00000000000€-03 UNROTSWAP DROP xSTO ; 

.00000000000E-01 UNROTSWAP DROP xSTO ; 

00000000000E-01 UNROTSWAP DROP xSTO ; 





-00000000000E-01 UNROTSWAP DROP xSTO 
00000000000E-01 UNROTSWAP DROP xSTO 
.00000000000E-01 UNROTSWAP DROP xSTO ; 
.00000000000E-01 UNROTSWAP DROP xSTO ; 
7.00000000000€-01 UNROTSWAP DROP xSTO 
8.00000000000€-01 UNROTSWAP DROP xSTO 
9.00000000000E-01 UNROTSWAP DROP xSTO 
1.00000000000E001 UNROTSHAP DROP XSTO/ ; 
XRCL SWAP XSTO ; 
XRCL SWAP XSTO+ ; 
: XRCL SWAP XSTO- 
XRCL SWAP XSTO* 
XRCL SWAP XSTO/ ; 

DROP DUP xRCL XNEG SWAP XSTO ; 
2DROP ID SPEED ; 

5 XCLEAR XABORT ; 

5: 2DROP OFF ; } 

BROLL XGET XEVAL 


UE UN = 


œ 

















FALSE 
UNTIL 
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DIAGRAME DE BODE 


Je vous envoie un petit programme qui m’a été très 
utile dans mes études (je sors d’un IUT en 
électronique). Il s’agit de tracer sur la HP48 le 
diagramme de Bode en gain et en phase d’une 
fonction complexe. 


Tout d’abord, il faut préciser qu'il s’agit d’un 
programme "de débutant pour débutant” et que s’il il 
n'intéresse pas les amateurs chevronnés des HP, il 
satisfera peut-être ceux qui, comme moi, sont 
incapables de comprendre les pages qui suivent 
l'éditorial de JPC. 


Il s’agit en fait de deux petits programmes 
complémentaires dont la structure est inspirée de 
certains listings du livre de Jean-Michel Ferrard 
Programmation et applications de la HP48. 


Le premier d’entre eux, que j'ai appelé B00E, demande 
lasaisie d’une fonction sous la forme d’un quotient de 
polynômes de Laplace, la pulsation de départ, celle 
d’arrivée, et le pas désiré. Les points des courbes sont 
ensuite calculés puis stockés dans deux matrices : NORM 
pour la courbe des gains et ARGU pour la courbe des 
phases. 


Le deuxième programme, appelé COURBE, trace une 
courbe à partir des points stockés dans la matrice 
statistique en cours. Il reste donc à faire un menu qui 
stocke la matrice ARGU ou la matrice NoRM dans la 
matrice statistique avant d’appeler le programme 
COURBE. 


BODE 


" Saisir: equation en P' début fin pas " 
M INPUT OBJ-+ 
LE 0+abcde 
« 
00122-LIST -ARRY 
DUP ‘’norm’ STO 
fargu’ STO b -NUM © -NUM 
FOR i 
IFERR 
0 1 R-C ’e’ STO 
î a EVAL DUP2 
ABS LOG 20 * 
2 -ARRY ’NORM' STOZ + 
ARG 2 -ARRY ‘ARGU’ STOZ + 
THEN 
CLEAR 
END 
d STEP 


COURBE 


ERASE SCARPLOT DRAX 
1Zdat' EVAL OBJ-+ DROP 
#Zdat' EVAL SIZE LIST DROP 
0+abc 
« 
ba 
FOR i 
R-C DUP 
IF c 0 <> THEN 
c SWAP LINE 
ELSE PIXON 
END 
fc! STO 
1 STEP 


Philippe Basset (582) 





PRECISION ETENDUE 
POUR HP28/48 





Il existe toute une classe de calculs où la pré 
primordiale : il s’agit des calculs itératifs pour lesquels 
les erreurs d’arrondi se cumulent progressivement. 


Considérez l'itération suivante : prenez le nombre 
1.0000001 (1 + 1e-7), et élevez le 27 fois au carré : 


ITI 


10000001 

1 27 START 
sa 

NEXT 


Les HP28 et 48 donnent comme résultat 674514.86877 
alors que la valeur exacte avec 10 chiffres significatifs 
est 674530.4707 comme l'indique le calcul direct de 
1.0000001 * (2 * 27). 














(Cet exemple est tiré de lexcellent ouvrage 
Récréations informatiques dans la série Pour La 
Science malheureusement plus disponible. On le 
trouve cependant encore dans les bibliothèques, je 
vous encourage à le consulter si vous en avez la 
possibilité). 


Je vous propose une façon simple d’augmenter la 
précision de votre machine. Il s’agit d'utiliser le type 
interne Long Real, et d'appeler les routines de 
manipulation par l'intermédiaire de SYSEVAL. 


Le type Real Utilisateur est constitué d’une mantisse 
de 12 chiffres, et d’un exposant variant de -499 à 
+499. 


Par contre le type Long Real voit sa mantisse passer à 
15 chiffres, tandis que l’exposant s'étend de -49999 à 
+49999, bien au delà des besoins usuels. 


Les Long Real sont affichés en tant que "System 
Object sur la HP28S, et comme ‘Long Real sur la 
HP48, il faut donc disposer de routines de 
conversions pour l'introduction et l'affichage. 


Avec les routines suivantes: 
%%% : conversion d’un Real en Long Real 


%% : conversion d’un Long Real en Real 
%%* _: multiplication de 2 Long Real 





Les versions pour HP28 et HP48 de 111 en précision 
étendue s’écrivent ainsi (attention aux adresses des 
SYSEVAL !!) : 


IT2 POUR HP28 !! 
« 
10000001 
# 1129Bh SYSEVAL 
1 27 START 
DuP 
# 11D2Dh SYSEVAL à %%* 
NEXT 
# 11280h SYSEVAL a %% 


® 


%>%e 


IT2 POUR HP48 !! 
« 
1.0000001 
# 2A5C1h SYSEVAL a ©%% 
1 27 START 
DUP 
# 2A99Ah SYSEVAL à %2* 
NEXT 
# 2A5B0h SYSEVAL à %4% 


Cette fois, les HP28 et HP48 fournissent 674530.4678 
avec 7 chiffres exacts, au lieu de 4 précédemment. 


Vous trouverez peut être que cet exemple n’est pas 
convaincant, à cause du choix très particulier de la 
valeur de départ (1:0000001), et du fait que l’on peut 
calculer directement le résultat. Cependant, un tel 
raccourci n'existe généralement pas. Par exemple, le 
résultat de n itérations de x=abs(In(x)) ne peut être 
obtenu qu’en calculant effectivement tous les termes. 


Comparez le résultat du programme pour HP28/48 : 


IT3 
« 
0.5 
1 40 START 
LN ABS 
NEXT 


Avec les résultats obtenus sur d’autres machines: 


HP41C : 0.387230709 
HP75/71/28/48 : 0.768875183625 
PC Turbo Pascal : 0.829369170184 
PC Quick-Basic : 0.829369170184 


(note: les résultats sur PC ont été obtenus en double 
précision, avec coprocesseur). 


Quel est le résultat exact ? 


Le fait que plusieurs machines obtiennent le même 
résultat n'indique pas qu'il s’agit du bon, mais 
simplement qu’elles utilisent les mêmes algorithmes 
et les mêmes représentations internes des nombres ! 


La comparaison avec une version en précision 
étendue permet de se rendre compte de ce qui se 
passe : 
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IT4 POUR HP28 !!! 
« 
0.5 
# 11298h SYSEVAL a %%% 
1 40 START 
# 11EBSh SYSEVAL à XALN 
# 11C74h SYSEVAL à XXABS 
NEXT 
# 11280h SYSEVAL a %% 


IT4 POUR HP48 !!! 
« 
0.5 
# 2ASC1h SYSEVAL a %%% 
1 40 START 
# 2AB5Bh SYSEVAL à X#LN 
# 2ABFOh SYSEVAL à XXABS 
NEXT 
# 2A5B0h SYSEVAL a 6% 


Ces versions fournissent le résultat 0.829372768402 en 
bon accord avec les résultats sur PC, ce qui nous met 
sur la piste. Voici le résultat du déroulement de 
l'itération x=abs(in(x)) sur HP28/48 : 


précision standard 


0.69314718056 
0.366512920582 
1.0037215043 
0.0037145966355 
5.59548518396 
1.72196005542 
0.543463209116 
0.609793267231 
0.494635285435 
0.703934585083 
0.351069846058 
1.04677008369 
0.0457093124443 
3.08545322844 
1.12669856016 
0.11929172826 
2.12618328791 
0.754328488767 
0.281927344352 
1.26610588538 
0.235945957965 
1.44415249185 
0.367522638669 
1.00097036041 
0.000969889914679 
6.93832798293 
1.93706082084 
0.661171783436 
0.413741588725 





précision étendue 


0.69314718056 
0.366512920582 
1.0037215043 
0.00371459663781 
5.59548518334 
1.72196005531 
0.543463209054 
0.609793267345 
0.494635285248 
0.703934585461 
0.351069845521 
104677008522 
0.0457093139106 
3.08545319636 
112669854977 
0.119291719035 
2.12618336524 
0.754328525138 
0.281927296136 
1.26610605641 
0.235946093045 
1.44415191935 
0.367522242241 
100097143905 
0.000970967513409 
6.93721754707 
1.93690076431 
0.66108915147 
0.413866574595 


0.882513681863 
0.124980986767 
2.07959365911 

0.732172518432 
0.311739111871 


0.882211640689 
0.12532329633 
2.0768585099%% 
0.730856420254 
0.313538254046 


1.16558862087 1.15983390388 
0.153226213386 0.148276808554 
1.87583993066 1.90867442404 


0.629056522136 
0.463534166007 
0.768875183625 


0.646408982288 
0.436322876005 
0.829372768402 


On constate que l'erreur atteint 1% vers la 37ème 
itération, pour s’amplifier ensuite rapidement. Au 
dela de la 40ème itération, les deux résultats n’ont 
plus rien à voir, et sont aussi faux l’un que l’autre. De 
plus, alors que les erreurs d’arrondis de l'exemple 
d'introduction augmentaient de façon géométrique 
(elles doublent à chaque itération), elles peuvent ici 
augmenter catastrophiquement en une itération. Par 
exemple, à litération 25, on passe de 1.00097036041 
(erreur relative 1E-6) à 9.69889914679E-4 (erreur 
relative 1E-3 !!). 


L’interêt de l’utilisation de la précision étendue reside 
dans la possibilité de vérifier expérimentalement la 
limite de validité d’un calcul itératif. Ce type 
d'itération intervient dans les études des fractales 
comme l’ensemble de Mandelbrot, ou encore les 
simulations de comportements chaotiques. 


Cet article aura atteint son but s’il vous a convaincu 
que l’on peut, à peu de frais, étendre les possibilités 
de nos chères machines, sans pour cela recourir à une 
programmation complexe. Vous trouverez ci-dessous 
une liste de SYSEVAL de manipulation des Long Real 
pour HP48S/G toutes versions et pour HP28S. 


Pour terminer, je rappelle aux utilisateurs de HP28S 
s'intéressant à la programmation par SYSEVAL ou en 
System RPL que je mets regulièrement à jour une 
liste de points d’entrées compatibles 48. Depuis sa 
publication dans JPC 87-88, le nombre d’adresses est 
passé de 500 à plus de 670. Vous pouvez vous la 
procurer au club, ou directement en m'envoyant une 
disquette PC formattée (avec l’enveloppe de retour) 
à: 


Jean-François GARNIER 
47 allée de la Dent de Crolles 
38420 DOMENE 


MNEMONIQUE  HP48 HP28S COMMENTAIRE 


Constantes Long Real 
AI 


#2A562  #11562 





L— JPC 98 Page 24 











2.4 #2830D  #1290F REDUCTIONS TROP RADICALES 


%2.5 #2AS7C  #1157C 


220 #2AUC6  #114C6 
x #2AGEO  #114E0 
%x2 #2AGFA  HI14FA Si je m'étais contenté d’une simple compilation de 
xs #2AS14  #11514 SYsEvALs et d’une élimination des délimiteurs de 
573 #2A52E  #1152E programme pour des programmes écrits en User Rpl 
25 #2A548  #11548 (PC %: allègements en douceur), notre ami Lu Vy 
2er #2B1FF #12731 Huynh est allé plus loin avec son programme STRIP 
2410 #2A596 sur 28S ?? (GPC97 page 11) en éliminant d’autres instructions 
2412 #2B2DC #1280E inutiles. Son programme est très intéressant et j'ai été 
7) #28300 #12832 tenté de le mettre à l'épreuve. S’il fonctionne très 
2e2P #OF688 (48 seulement) bien en réduisant certains programmes, il est mis en 
Pi #11458 (285 seulement) échec dans le cas ou le programme à réduire contient 
P1/180 #2A62C  #1190A des séquences consécutives de tests comme par 
exemple: 
Conversions 
« DUP 
6% #2A5BO #11280 %%a --> %a IF 5 > THEN 1 - END 
6% #2A5C1 #11298 %a --> Xka IF DUP 3 > THEN .5 - END 
cou #519cB #30248 (ab) -> %%a X4b » 
eCx #51A07 #3027A %ka #%b --> (a,b) 


Ce programme donne pour : 
Fonctions d’un Long Real 





10 -8.5 
LAMAX #2A6DC  #1IDE 3.5-3 
LABS #2ABFO  #11C74 2 -2 
AUCHS #2A910  #11C9% 
241/ #2AA92 sur 28S ?? et compacté avec STRIP les résultats sont : 
YASORT H2AAEA  #11E43 
XXEXP #2ABIC  #11E74 10 -10 
TAN #2A858  #11E85 3.5 + - Error: Too Feu Arguments 
SALNP1 #2AB94  #11EFO 2 + (rien n’est renvoyé) 
HESIN #2AC06 #11FGE avec mode courant 
%USINDEG  #2AC17 #11F77 argument degrés On voit donc que si le premier test est positif, le 
Y%ACOS #2AC57  #11F9D avec mode courant résultat est correct, sinon cela plante dans tous les 
HUCOSDEG  #2AC6B #11FC6 argument degrés autres cas. 
XXCOSRAD  #2AC78 #11FD9 argument radians 
RTANRAD  #2ACAB argument radians Le programme ASsscoD48, que vous trouvez dans la 
%AASINRAD #2ACD8 #12020 résultat radians rubrique le coin des codes, après avoir été traité par 
%AACOSRAD #2AD08 #1204D résultat radians sTRIP, plante aussi. Il est possible que là, la structure 
22S1NH #2AD95  #120E8 CASE soit en cause, car traitée par STRIP de la même 
Z2COSH #2ADC7  #12111 manière que IF THEN END. 


HLFLOOR H#2AF99  #124C5 
Un programme avec la structure suivante : 
Fonctions de deux Long Real 


DO ...... EFERR 2:25 THEN .... END .... UNTIL 
ls #2A943 #11CC8 
2 #2A94F  #11D01 ne fonctionne pas non plus après compactage. 
2e #2A99A  #11D20 
2 #2A9E8  #11073 Je ne suis pas allé plus loin dans cette mise à 
2e #2AASF  #11DDF l'épreuve et je laisse notre ami faire les retouches à 
YAANGLE #2AD4F #1208D a b --> atan(b/a) son programme qui est par ailleurs très intéressant du 
%AANGLEDEG #2AD6C #120C2 résultat degrés point de vue programmation. 
XANGLERAD #2AD7C  #120D5 résultat radians 

Guy Toublanc (276) 


Jean-François Garnier (242) 
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LE HP200LX 


Comme je vous le laissais entendre dans le dernier 
JPC, Hewlett-Packard à décidé de sortir de ses 
cartons un nouveau palmtop, destiné à remplacer le 


HP100LX. 


Cette présentation est axée principalement sur les 
différences existant entre les deux machine. 


Notez cependant que la plupart des peronnes 
directement concernées par la sortie de la machine 
(responsable des ventes, attaché de presse...) ayant eu 
la mauvaise idée de prendre leurs vacances au 
moment même où elle était annoncée, il ne m’a pas 
été possible d’en avoir un exemplaire en main, ni 
d'obtenir des photos exploitables. Cet article est donc 
basé sur des renseignements obtenue par différentes 
sources. 


Tout d’abord, après avoir choisi des noms de grands 
félins pour codes de dévelopement des HP95 et 
HP100 (Jaguar et Cougar, respectivement), Corvallis a 
légèrement changé de politique, en choisissant des 
personnages félins de dessins animés ou de bandes 
dessinées. En effet, le HP200 1Mo à reçu le nom de 
Felix et la version 2Mo, Garfield. Le Connectivity 
Pack à été baptisé Toonce, nom d’un chat 
apparaissant dans l’émission satirique de la télévision 
américaine Saturday Night Live. 


Aspect Général 


Si il possède le même boitier que celui des précédents 
palmtops HP, celui du HP200 se distingue au premier 
coup d’oeil par un boitier gris foncé légèrement 
bleuté et des changements dans le couleur de 
certaines touches. En fait, il s’agit des mêmes 
couleurs que pour la HP48GX. 


La touche ftFntl (ainsi que les fonctions 
correspondantes) est maintenant mauve (ou violette, 
ou magenta suivant les utilisateurs...) légèrement plus 
claire que pour la HP48GX. Les touches 
d'applications (autrefois bleues) sont devenues vertes, 
et présentent une nouvelle organisation : 


FILER APPT PHONE MEMO QUICKEN LOTUS CALC &... 
au lieu de : 
FILER CCMAIL APPT 


PHONE MEMO LOTUS CALC &... 


Le marquage des touches est légèrement incliné et 
déplacé vers le haut à gauche. Probablement afin de 
donner l'impression que le clavier est plus grand. 


L'écran est du même type que celui des derniers 
HP100, plus contrasté. 


Le Hardware 


Le Hardware est strictement le même que pour le 
HP100 (microprocesseur 80186 à 7.91 MHz, écran 
CGA, 1 connecteur PCMCIA version 2.0...). La seule 
différence est que la Rom est passée de 2 Mo à 3 Mo. 


Le software 


Mis à par deux nouvelles applications, et quelques 
utilitaires, peu de modifications majeures sont à 
noter. La version de MS-Dos est toujours la 5.00. 


Le System Manager 


A l'allumage du palmtop, un nouvel écran Topcard 
apparait. Il semble ne pas faire l'unanimité... 


Les icônes ont été aussi modifiées. 


La plupart des fichiers macros semblent fonctionner, 
à l'exception des certaines faisant appel à Lotus. 


cc:Mail et Communications 


Contrairement à ce que nous disions dans le 
précédent numéro, ce:Mail est toujours présent. Il n’y 
a pas d'améliorations notable, mais un nouvel 
utilitaire  (‘cc:MADE") permetant des échanges 
automatiques des fichiers entre répertoires. 


La vitesse d'affichage en mode émulation de terminal 
est enfin acceptable... 


Agenda 


Chaque jour, au premier accès à l'agenda, un message 
de salutation est affiché, incluant les rendez vous et 
les choses à faire pour la journée. 


Répertoire téléphonique 


La principale innovation de cette application est 
lapparition (optionnelle) d’un nouvel écran, 
présentant sur le coté gauche la liste des noms, alors 
que le côté droit présents une fiche mentionnant les 
coordonnées de la personne sélectionnée. 


Il est à noter que les coordonées du Palmtop Paper 
sont maintenant mentionnées dans le fichier original ! 














Le Bloc Notes 


Peu de choses à noter, si ce n’est que les épingles 
apparaissant sur l'écran graphique ont disparu. 


Bases de données 


Peu de modifications, semble-t-il. Y compris la vitesse 
qui est toujours aussi lente. 


Nouvelles applications 
Quicken 


Quicken est un logiciel de gestion financière 
personnelle très en vogue chez les Anglo-Saxons. La 
version incluse dans le HP100 (Pocket Quicken) est 
bien sûr limitée par rapport à la version Dos ou 
Windows, mais possède les fonctionnalités suivantes : 


- Entrée et édition des différents gains et dépenses, 
que ce soit par chèques, cartes de crédit, espèces, 
virements, pour différents comptes. 

- Visualisation des balances. 

- Création et impression de rapports. 

- Echange des données avec les versions PC. 


Laplink Remote 


Le redirecteur nest plus dans le menu de 
configuration. A la place, il y a Laplink Remote, un 
logiciel d’échange de fichiers bien connu des 
utilisateurs PC, qui fonctionne beaucoup mieux. Il y a 
bien sûr la possibilité de transférer une copie de 
Laplink sur un autre PC. 


Nouveaux fichiers et utilitaires 


Bien que la commande interne 100, soit conservée, un 
nouveau fichier 200.COM a été ajouté. Ceci est 
intéressant pour ceux qui utilisent des programmes 
tels que 4005. 


Des versions adaptées au HP200 de HEXCALC et de 
l'éditeur d’icônes (présents dans notre disquette n° 5) 
ont aussi été incluses. 


Deux jeux ont été ajoutés dans la Rom : Hearts & 
Bones, la version "pacifiéc" du jeu du démineur 
(présent dans la version US du HP95), et Lair of 
Squid. 





Des documentations supplémentaires, donnant 
quelques "trucs" d'utilisation, ont été incluses, au 
format du Bloc-Note. Vous trouverez aussi quelques 
informations intéressantes dans le fichier 
D:\_DAT\APPTS.INI. 


Parmi celles-ci vous pourrez noter le retour du 
"password" global, tel qu’il apparaissait sur le HP95. 


Le Connectivity pack 


Une nouvelle version de ce programme (référencé 
1021B) est disponible. Il inclut bien sûr les routines 
de conversion de Quicken vers les versions desktop 
du proramme (le format des fichiers ayant été 
modifié afin d'économiser l’espace disque du HP200). 


Il sera disponible à la fin du mois d’août. 
Compatibilité avec d’autres programmes 


Tous les programmes (System Manager ou non) 
tournant déjà sur le HP100 devraient fonctionner sur 
le HP200. Cependant, sur la version US, environ 50% 
des fonctions de 100Buddy semblent fonctionner 
correctement. Une nouvelle version de ce programme 
devrait sortir très prochainement. 


Pour finir, je tiens à préciser que toute cette 
présentation concerne la version US du HP100. 
D’après Hewlett-Packard, il ne devrait pas y avoir de 
disparition de fichiers sur la version Française 
(comme cela s'était fait pour les HP95 et HP100). 
Mais la version Française n’étant pas disponible au 
moment ou j'écris ces lignes, je ne peux pas vous en 
dire plus. 


Malgré le fait qu’il y ait de nouvelles applications, le 
prix des deux machines à baissé par rapport à ceux 
des HP100. La version 1 Mo coûte maintenant 
3900 F HT et la 2 Mo 4730 F HT (prix catalogue HP). 


En résumé, avec cette machine, Hewlett-Packard 
semble avoir répondu aux attentes des utilisateurs (en 
tous cas les Américains). Si il n’est peut être pas 
indispensable à un utilisateur de HP100, nous ne 
pouvons que le conseiller à tous les autres, puisque 
(même sans compter les nouvelles applications) il 
reste toujours sans concurence. Cependant, la baisse 
de prix de la version 2 Mo incitera peut-être les 
possesseurs de la version 1 Mo à sauter le pas ! 


Cependant, on peut s'interroger sur certaines 
incohérences (voulues par les services 
commerciaux ?) consistant à appeler HP200LX une 
machine ayant tout de même peu de différences 
fondementales par rapport au HP100LX, alors qu'il y 
a un an sortait un autre produit répondant à 
l'appelation HP48GX, qui possédait beaucoup plus de 
différences par rapport à la HP48SX. Peut être que 
HP100QX aurait été mieux adapté... 


Jacques Belin (123) 
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CARACTERISTIQUES 
MECANIQUES DE SECTIONS 


Venant juste d'acquérir un HP100 et n’ayant jamais 
utilisé un tableur, je me suis jeté à l’eau avec une 
feuille de calculs pour déterminer le moment d’inertie 
de sections planes ainsi que des caractéristiques s’y 
rapportant. Il s’agit essentiellement de sections 
décomposables en trapèzes ainsi que toutes figures 
géométriques en dérivant: triangles, 
parallélogrammes généraux ou particuliers (carrés, 
rectangles et losanges). 


Voici comment se présente cette feuille pour la partie 
données et résultats, c’est-à-dire pour le champ A1 à 
F13. Pour des raisons de mise en page la colonne des 
résultats est rétrécie, ici, de deux caractères. 


caractéristiques de sections à base de trapèzes 





Résultats 


niv. [base sup|base inf| hauteur | 








1 | 0,000 0,000 0,000 
2 | 0,000 0,000 0,000 
3 | 0,000 0,000 0,000 
4 | 0,000 0,000 0,000 
5 | 0,000 0,000 0,000 
6| 0,000 0,000 0,000 
7 | 0,000 0,000 0,000 
8 | 0,000 0,000 0,000 
9 | 0,000 0,000 0,000 [**** init : /1 *#*** 


Le champ 61..k13 est occupé par les cellules des 
calculs intermédiaires. En E15 se trouve 0,000 servant 
à réinitialiser le champ des données. Enfin en F15 est 
logée une macro /re15-b5.d13-/cdb5.d- de 
réinitialisation des données. 


Exemple d’utilisation : 
Section (imaginaire) composée de haut en bas de : 
1 trapèze : base supérieure 35 


base inférieure 30 
hauteur 25 


1 trapèze : base supérieure 20 
base inférieure 15 
hauteur 10 
1 triangle : (base supérieure 0) 
base inférieure 30 
hauteur 35 


caractéristiques de sections à base de trapèzes 





niv. [base sup|base inf| hauteur 


| Résultats 








1| 35,000 30,000 25,000 | 1 758823,3184 
2 | 20,000 15,000 10,000 [| S =  1512,5000 
3 | 0,000 30,000 35,000 | Vs =  30,2362 
& | 0,000 0,000 0,000 | 1/Vs = 25098,2109 
5 | 0,000 0,000 0,000 | vi =  39,7658 
6| 0,000 0,000 0,000 | 1/Vi = 19082,2906 
7 | 0,000 0,000 0,000 | rho =  22,3987 
8 | 0,000 0,000 0,000 | 

9 | 0,000 0,000 0,000 [*#** init : /1 *#** 


Les résultats correspondants sont : 


1: momment d'inertie de La section par rapport à 

L'axe horizontal passant par Le centre de 

gravité G de La section S 

aire de La section 

distance de L'axe horizontal, passant par G, 

aux fibres supérieures 

1/VS : module d'inertie supérieur 

Vi : distance de l'axe horizontal, passant par G, 
aux fibres inférieures 

1/Vi : module d'inertie inférieur 

rayon de giration 


<o 
ë 


On peut déterminer les caractéristiques de sections 
creuses, il suffit de faire une décomposition et de 
regrouper éventuellement les parties pleines de 
mêmes niveaux. Pour une poutre, il est possible de 
calculer uniquement les semelles en entrant la 
hauteur de l'âme et 0 pour ses bases. 


Il est bien évident que l’on peut utiliser cette feuille 
de calculs pour les caractéristiques par rapport à un 
axe vertical, il suffit d’effectuer une rotation de la 
figure. 


La macro /1 permet d’initialiser la feuille sous la 
forme présentée au début de cet article. 


Voici la feuille de calculs de INER dans son intégralité. 
Pour des raisons de mise en page les lignes A1, E3, H10, 
H11, H12 E13 et H13 sont présentées ici sur deux lignes, 
mais sont à taper d’un seul tenant. 








A1: [LS] ” caractéristiques de sections à base de 
trapèzes 

A2: [L5] REPETE("=";56) 

A3: [LS] ‘niv.| 

83: [L9] ’base sup| 

C3: [L9] ‘base inf| 

D3: [L9] ’ hauteur 

E3: [LS] ACAR(124)&REPETE(" ";7)&MRésul tats''&AREPETE 
CM 6)anx" 

A4: [LS] GREPETE("-",56) 














AS: [LS * 1 

85: (F3) D [L9] O 

c5: (F3) D IL9] O 

: CF3) D [L9I 0 

: IL | 1 = 

(F4) IL15] ASOMMECKS..K13)-F6*F9"2 

€L) IL] (B5+C5)*D5/2 

(L) LT] 8S1(G5=0;0; (2*B5+C5)*D5/3/(B5+C5)) 
CL) IL1] ASOMME(D6. .D13)+H5 

CL) EL] +65*15 

CL) IL] C3*B5+C5)*D5"3/12+65*(15"2-H5"2) 
[5] 2 

: CF3) D [L9I 0 

: CF3) D [L9I O 

: CF3) D [L9] 0 

: HS TS = 

CF4) IL15] ASOMME(GS..613) 

CL) IL11 (B6+C6)*D6/2 

: CL) [LI] @S1(G6=0;0; (2*B6+C6)*D6/3/(B6+C6)) 
: CL) [LI] ASOMME(D7..D13)+H6 

: CL) [LI] +66*16 

: CL) [LI] C3*B6+C6)*D6"3/12+G6*(16"2-H6"2) 
: 151" 3 

€F3) D IL9I 0 

€F3) D [L9] O 

€F3) D [L9] O 

IL8] ‘| vs = 

: CF4) IL15] SOMME(D5..D13)-F9 

: CL) [LI] (B7+C7)*D7/2 

: CL) (LT aS1(67=0;0; (2*87+C7)*D7/3/(B7+C7)) 
[L11 @SOMME(DB..D13)+H7 

EL] +67*17 

IL1] C3*B7+C7)*07"3/12+67*(17"2-H7"2) 
n 46 

D IL9 0 

D EL9] 0 

D EL9] 0 
"ins = 
[L15] aS1(F7= 
IL1] (B8+C8)*D8/2 

IL1] aS1(68-0;0;(2*B8+C8)*D8/3/(B8+C8)) 
IL1] ASOMME(D9. .D13)+H8 

IL] +68*18 

IL1] (3*88+C8)*D8"3/12+G8*(18"2-H8"2) 
15] 

D IL9] 0 

D IL9] 0 

D IL9] 0 

rEvi = 

: CF4) IL15] 2SI(F6=0;0;2SOMME(J5..J13)/F6) 

: CL) EL1] (B9+C9)*D9/2 

CL) IL1] aS1(69=0;0;(2*89+C9)*D9/3/(B9+C9)) 
CL) [L1] ASOMME(D10..D13)+H9 

€L) (L1] +69*19 

CL) IL] (3*B9409)*D9"3/124G9*(19"2-H9"2) 
A10: IL51 ' 6 | 

810: (F3) D [L9I 0 

c10: (F3) D [L9I 0 








:+F5/F7) 








D10: (F3) D [L9] 0 

E10: (L8] ‘| 1/vi = 

F10: (F4) [L15] ASI(F9=0;0;+F5/F9) 

G10: (L) IL1] (B10+C10)*D10/2 

H10: CL) IL1] aS1(610=0;0; (2*B10+C10)*D10/3/(B10 
+c10)) 

110: (L) [L1] ASOMME(D11..D13)+H10 

410: CL) IL] +610*110 

K10: (L) IL1] (3*810+C10*D103/12+610*(110"2-H10"2) 

A: 5)! 7] 

811: (F3) D IL9] 0 

c11: CF3) D EL9] 0 

D11: (F3) D [L9] 0 

Et: IL81 ‘| rho = 

F11: (F4) IL15] ASI(F6=0;0;SRACINE(F5/F6)) 

611: CL) EL1] (B11+C11)*D11/2 

11: CL) IL1] 251(611=0;0;(2*811+C113*D11/3/(811 
+011)) 

111: CL) EL] 8SOMME(D12..D13)+H11 

g11: CL) EL1] +611*111 

KI: CL) [LI] (3*811+011)#01173/12#611* (11172-41172) 

A12: [15] 8 | 

812: (F3) D [L9] 0 

c12: (F3) D EL9] 0 

D12: (F3) D EL9] 0 

E12: [L8] ACAR(124)88REPETE("=";22) 

G12: (L) IL1] (B12+C12)*D12/2 

H12: CL) IL1] 4S1(G12=0;0;(2*B12+C12)*D12/3/(B12 
+012)) 

112: (L) [L1] 8S1(612=0;0;+D13+H12) 

412: CL) EL] +612*112 

K12: CL) [LI] (3*812+C12)*D12"3/12+612*(112"2-H12"2) 

A13: [LS] * 9 | 

813: (F3) D [L9I O 

c13: (F3) D [19] O 

D13: (F3) D [191 0 

E13: [LS] ACAR(124)RAREPETE("*";6)8" Init : /1" 
BAREPETE("*";5) 

613: CL) [L1] (B13+C13)*D13/2 

H13: (L) IL1] a51(613=0;0;(2*813+C13)*D13/3/(813 
+C13)) 

113: (L) [L1] 851(613= 

J13: CL) [LI] +613*113 

K13: CL) IL1] (3*813+C13)#D13"3/12+613*(113"2-H13"2) 

E15: (F3) [L8] O 

F5: [L15] ‘/re15-b5.d13-/cdb5.d13- 





+413) 


Pour taper cette feuille plus rapidement voici 
quelques indications: 


-Largeur de colonnes : 
AB: 16 D''ELE G HI 4 K 
S. 9:19. 49: 815 LL LA" 


-Cellules du champ 85.013 : format fix 3, déprotégées 


-Cellules du champ F5..F11 : format fix 4 
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-Cellule 65 : (85+c5°*D5/2) à recopier en Gé..613 


-Cellule 45 : (aS1(G5=0;0; (2*85+C5)*D5/3/(B5+C5))) 
à recopier en H6..H13 





-Cellule 15 : (@SOMME(D6. .D$13)+H5) 
à recopier en 16..111 


-Pour 112 et 113, voir feuille 
-Cellule 45 : (+65*15 à recopier en J6..J13) 


-Cellule k5 : ((3*85+05)*D5"3/12+65*(15"2-H5"2)) 
à recopier en Ké..k13 


Pour toute la colonne A, la ligne 3, champs E5..F11, 
E12..E13, E15..F15, voir feuille. 





Ne pas oublier d’enregistrer la macro /1 en F15 et 
d'utiliser celle-ci pour réinitialiser la feuille. 


Cette feuille représente 5516 octets, je l’ai créée avec 
pour toute documentation un aide-mémoire de la 
version 2.2 de Lotus, aussi il y a certainement des 
améliorations possibles ou même des maladresses à 
corriger. Suivant les besoins les champs A5..D13 et 
F5..k13 peuvent être allongés vers le bas. Je n’ai pas 
inclu d’unités car suivant les matériaux utilisés et les 
habitudes cela est variable. Le format des données et 
résultats n’est peut-être pas celui de tout le monde, 
donc des adaptations à faire. 


L'usage d’un tableur pour ce genre de problème m’a 


semblé approprié et en particulier pour un calcul de 
section en pré-dimensionnement. 


Guy Toublanc (276) 
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LE COIN DES CODES ASSCOD48 1114.5 octets ASSCOD28 1032.5 octets 


cksum # 621Eh cksum # 55CEh 


La compilation de certains programmes, tels ceux 
écrits en assembleur, nécessitent souvent un logiciel 
que ne possèdent pas tous nos lecteurs. Le Coin des 
Codes permet de résoudre ce problème. 


@ eenreeneennneennneee IpAB et HPL2BS veeeeneenneenneene 
« RCLF « CLLCD 3 DISP 1 DISP 
DO DUP 4 DISP 
DO UNTIL KEY END 
@ “eeeenneesene pps esetenneee Q@ *e*rtte HPL2BS tte 
IF DUP 51 == THEN DROP 1 @@ 1F DUP "ENTER 
ELSE IF DUP 55 == THEN DROP  @@ THEN DROP 1 

1 OVER SIZE 1 - SUB @@ ELSE 





Note importante: 





Même si la présentation des listings est identique, le 


traitement de ceux-ci est différent suivant le ELSE @@ IF DUP "BACK" == 
programme d'entrée et la machine de destination. CASE DUP 17 < THEN 54 + END @@ THEN DROP 1 OVER 
Chaque listing est prévu pour être entré sur sa DUP 66 < THEN 7 - END @@ SIZE 1 - SUB 


machine de destination. Par exemple, ne tentez pas 
d'entrer un programme HP48 dans un fichier 
MS-DOS à l’aide du programme MAkedos. Vous 
obtiendriez un fichier au transfert impossible dans la 
HP48. 


DUP 76 < THEN 20 - END @@ ELSE 

DUP 86 < THEN 33 - END @@ 

DROP 48 END CHR @@ 
@ rrrreeeseeseesesesse JIPLAS et FIP-2BS **tteeesesessesses 

+ DUP SIZE 1 +5 MOD NOT 1 FC? AND IF THEN " # + 
END END O END UNTIL END » 

HEX 64 STWS “nombre d’octets 2" "n 
Q@ *tererererees pp seeeseeseeee QD tttteee HP.2BS teeeee 
INPUT @@ 1 SF 3 PICK EVAL 
@ rrrreeesesssseseses FIPLAS et HP-28S **###ttteeeesesessss 
1 CF STR- 2 * 16 DUP2 / IP 3 ROLLD MOD 


Programmes HP48 et HP28S 


Par rapport aux méthodes habituelles sur HP48,notre 
méthode effectuant un calcul local du checksum en 
fin de chaque ligne permet de faciliter la recherche 


d'erreurs, par rapport à une même recherche dans  DUP2 0 > + SWAP 1 + # Oh "" 1 5 ROLL 
une chaîne de plusieurs centaines d’octets. FOR i 

DO Ligne " i 1 - R-B # 1000h + +STR 4 6 SUB + DUP 
Par mesure de sécurité sauvegardez vos programmes # @ NEWLINE 
et fichiers, éventuellement verrouillez vos cartes. codes 7! + 1 ZPIK i< 





1F THEN 6 PICK DUP 4 / IP + 1 SWAP OVER - SUB END 
1 FS?C IF THEN DROP2 SWAP 
Q *rrrrtreesnes pps seeesesssess QQ sesteee PLIS verve 
OVER “ a corriger" + @@ 
€ -1 3 ROT + INPUT @@ CLMF HALT 
Q veneereneneenenense IPS ct HP-28S veeereeneneenenenne 
ELSE 8 PICK EVAL END DUP 
WHILE DUP " " POS DUP 
REPEAT DUP2 1 SWAP 1 - SUB 3 ROLLD 1 + 25 SUB + 
END DROP O OVER SIZE 1 SWAP 


Tapez le programme correspondant à votre machine: 
- ASSCOD48 pour HP-48 ou ASSCOD28 pour HP-28S 
(attention aux parties distinctes HP-48 ou HP-28S) 

cela avec la plus grande attention car un mauvais 
fonctionnement peut entraîner un désordre fatal pour 
les objets contenus dans votre machine. La 
commande SPEED (JPC-85 page 12) peut être incluse 
au début de ASSCOD?8. NEWLINE (-) s'obtient sur 
HP-48 par {flèche bleue] puis |. 





Pour tout assemblage de chaîne de codes procédez de 
manière suivante : 


1- lancez le programme ASSCOD48 ou ASSCOD28 


FOR j OVER j DUP SUB NUM j * + NEXT 

6 PICK + DUP # FFFh AND 

“ @ NEWLINE 
somme de controle ?" 6 ROLL SWAP + 





11 PICK EVAL "#1! SUAP + STR+ == 
IF THEN 1 ELSE DROP2 1000 1 BEEP 1 SF O END 
UNTIL END ROT 5 ROLL DROP2 3 ROLLD + 
NEXT 5 ROLLD 4 DROPN 
see 48 eee G@ 
MGROB 8 " OVER @@ "" SWAP 1 OVER SIZE 
SIZE 2/ "+ @@ FOR j DUP j DUP 15 + SUB "#" 
+ SWAP + STR+ @G@ OVER SIZE 1 
# 4017h SYSEVAL @@ FOR i OVER i DUP SUB + -1 STEP 
# 62B9Ch @@ SWAP DROP STR+ ROT SWAP 
SYSEVAL NEWOB (@@ # 3B82h SYSEVAL SWAP 16 
SWAP STOF » @@ STEP DROP # 20238h SYSEVAL 

@@ # 4F3Dh SYSEVAL SWAP STOF CLMF » 


2- donnez le nombre d’octets (1/2 octet compris) puis 
validez avec ENTER. 

3- tapez chaque ligne de codes après son numéro à 3 
chiffres et sans les espaces puis validez. 

4- tapez la somme de contrôle sm, validez. S'il y a 
erreur la ligne de codes sera demandée à nouveau. 
Pour HP-28 l'appui sur EDIT fera apparaître la ligne 
des codes qui pourra être corrigée, ensuite relancez 
avec CONT. 

5- lorsque l’objet apparaîtra sur la pile stockez le dans 
la variable donnée en tête. 

Nota: des versions ASSCODxx plus performantes 
(System Rpl et Assembleur) existent dans JPC 
numéro 95. 





nesneeresseus FIPLDBS veenrensenenre 
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SPOFF 
# 8FF9h 


0123 


000: 69c2 
001: OFFF 
002: 30 


PIXOFF 
# C314h 


0123 


000: 7602 
001: 5270 
002: DA10 


PIXON 
# 6D07h 


0123 


000: 76c2 
001: 5270 
002: DA10 


PIXX 
# D2FEh 


0123 


000: 76c2 
001: 5270 
00: A14 
003: 20 





POLYG 
# 417Ch 


0123 


000: 76c2 
001: D211 
002: D117 
: D375 
0088 
9c21 
1011 
: 7D3C 
: E3AE 
: 006F 
: 1190 
: 3803 





4567 


0D10 
3081 


4567 


04C3 
7éc2 
9F20 


4567 


04c3 
76C2 
9F20 


4567 


04c3 
76c2 
F9c0 


4567 


00c8 
840 
5120 
1200 
113A 
1257 
38c1 
2703 
0E30 
6049 
37E5 
EEE8 


CHP28) 
17 octets 


B9AB CDEF sm 


0013 2180 BBD 
5c08 D108 92F 
9c2 


CHP28) 
22.5 octets 


89AB CDEF sm 


CO5A 7C03 DCC 
ODD1 CO2F CéB 
09F2 0 FD7 


CHP28) 
22.5 octets 


89AB CDEF sm 


COSA 7C03 DCC 
00D1 COEF  D88 
09F2 0 OF4 


CHP28) 
25 octets 


B9AB CDEF sm 


CO5A 7C03 DCC 
OpD1 CO8C Cc95 
09F2 009F AD3 

865 


CHP28) 
157.5 octets 


89AB CDEF sm 


7034 411E CCA 
18F7 D328 AAB 
B35C OC27 7FD 
C870 E602 49E 
cD36 8311 1D1 
D348 120D EBD 
1835 COC2 C87 
69A2 OAEO AEF 
9F20 5895  8FB 
850A 4020 4FF 
40D7 390F 33A 
0E01 8251 10E 








00c: 8034 9850 
00D: D37D 8D38 
00E: OABA D37E 
00F: 268D 3EEE 
010: 1D20 40c4 
011: 6035 0850 
012: 20BE C115 
013: 3379 5009 


LINE 
# 3817h 


0123 4567 


000: 69c2 OC22 
001: OAF2 CEAE 
002: 1811 1001 
003: 6050 8531 
004: c7F4 1108 
005: 3110 A7B3 
006: A620 1101 
9012 36A7 
F712 3118 
ODF8 5212 
F108 81FE 
0249 ODD1 
94A8 0818 
1081 12E4 
F811 0211 
7700 8D5E 
8724 ODE1 
0886 0031 
012: A348 FBFF 
013: C4C4 C4CA 
014: F100 0886 
015: 137C 2137 
016: 06F6 550A 
1488 6350 
5088 c159 
4173 1700 
0598 2A0D 
018: 2300 9BA5 
01C: 3313 7800 
010: 1531 D8D3 
D230 6063 
: 1023 A845 
: AFOD 8907 
: E115 8090 
: 1E29 OA70 
: 10 





4812 
Ec11 
540D 
80E0 
94E4 
6012 
0850 


89AB 


008F 
2134 
5A00 


1641 
1108 
124€ 
0247 
7591 
310c 
BD5C 
1141 
FAÎE 


8c1c 
5212 
3534 
349E 
5703 
1331 
0081 
1323 
06A0 
B8c0 
0011 
0153 
117E 
OABA 
OEE1 
8091 
1c90 
40c3 
0075 
840F 
B4&F 


0119 C98 


A&O2 AA6 
7390 862 
1822 69% 
54c1 434 
0481 F6B 
FF5D E6F 
céc 
CHP28) 
281 octets 
CDEF sm 
1805  c9% 
1542 99A 
8808 607 
4110 1F7 
4679 E33 
1108 A56 
0846 7A5 
2ZAÏA  4D6 
8B7A 29E 
102D F58 
F7AG  FC4 
18Eé D73 
850F C53 
0818 902 
F5FB 88) 
0118 52 
8800 163 
AGOE Fé5 
2048 CB9 
3034 909 
c81C 689 
030E 2A9 
c59F 169 
E0E4  FEA 
3713 874 
3320 6BE 
5073 3F1 
1771 298 
35D0 081 
3520 C93 
6328 8D4 
AOC5 689 
8EDB 58F 
9090 392 
AC60  23D 
2CE 


ROTIMG 
# FA36h 


0123 


000: 76c2 
001: 4020 
002: c20A 
003: 2037 
004: 0500 
005: 9044 
006: 184D 
007: D815 
008: 1494 
009: 09F2 
O0A: 4585 
008: CD37 
00c: 2070 
00D: 2F34 
00E: F38E 
O0F: 3C03 
010: 622F 
011: 12F3 
012: 0003 
013: 5E4A 
: 205E 
BEC 
5005 
017: 021D 
018: 7569 
019: 0339 
0002 
0000 
54A2 
4020 
O1E: A225 
01F: 2033 
020: 0000 
021: 0022 
022: 3392 
023: 0001 
024: 22A0 
025: 9209 
026: 0205 
027: A009 
: 0999 
029: 05D5 
: 09F2 
: 9900 
D5D3 
: F207 
: 0000 
02F: D360 
030: 076€ 
031: 0000 

















4567 


OcD5 
B8A 

1120 
650E 
5751 
0202 
11F1 
2210 
4538 
0210 
877A 
éc20 
0000 
c2F3 
2F34 
F3ED 
3232 
AEOA 
SE4A 
2070 
020€ 
11F1 
7514 
2050 
A207 
2020 
2033 
0000 
2E60 
BEC1 
4A22 
9207 
0105 
A009 
0999 
0505 
09F2 
9900 
D5D3 
F207 
0000 
D360 
076c 
0000 
6012 
éc20 
0000 
1200 
2033 
0000 
0022 
3392 
0007 


89AB 


TO0EE 
149C 
AC3A 
6020 
4984 
F880 
4507 
2050 
c11A 
2040 
OFEA 
69A2 
3CA2 
0D2F 
F2F3 
1F3E 
F3E0 
1E4A 
2070 
000F 
6970 
4502 
9445 
3545 
6c20 
0000 
9209 
010€ 
205E 
15E0 
09F2 
9900 
D5D3 
F207 
0000 
D360 
076c 
0000 
6012 
6c20 
0000 
1200 
2033 
0000 
0022 
3392 
0005 
22A0 
9209 
0605 
A009 
0999 
0505 





CHP28) 
638 octets 
CDEF sm 
870A EF6é 
D376 CF8 
009F 817 
2102 762 
52E4 40€ 
BEC1 29F 
6c20 F59 
0575 B19 
37A0 868 
C435 4E1 
1149 310 
OE4A  16F 
F388 F92 
3C02 ED9 
003F D21 
32F3 C48 
2F3A AC6 
2070 84A 
0001 380 
409F ODD 
9c21 DFO 
1020 A7E 
F145 718 
O5E2 372 
A112  FF6 
0000 9c1 
9900 544 
6020 036 
020A D21 
2054 907 
076€ 76E 
0000 221 
6012 E32 
éc20 B01 
0000  56A 
1200  OFD 
2033 D79 
0000 78b 
0022 2E2 
3392 F4B 
0003 94C 
22A0 518 
9209 158 
0405 878 
A009 731 
0999 3CE 
05D5 F4C 
09F2 BD2 
9900 789 
D5D3 457 
F207  0B5 
0000  co0 
D360  88A 
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035: 1200 22A0 09F2 076€ 5EC RING CHP28) 018: FBFF 5703 2048 C4C4 627 





036: 2033 9209 9900 0000  OAF # 7650h 322 octets 019: C4CA 1331 3081 C81C 398 
037: 0000 0805 D5D3 6012 CEA OA: 137C 2137 1323 030E FB8 
038: 0022 A009 F207 6C20 989 0123 4567 89AB CDEF sm 018: 0630 1550 AO6A 0C59  D1F 
039: 3392 0999 0000 0000 422 01C: F14B 8635 OBBC OEUE BFA 
0009 05D5 D360 1200 FD5 000: 69C2 0E72 008F 1805 CC5 01D: 450B 8015 9003 1371 7BE 
038: 22A0 09F2 0760 2033 C51 001: OAF2 CEAE 2134 1542 9C9 O1E: 3414 3C4A 6484 0550 3F8 
03c: 9201 0000 0000 0000 5E2 002: 0818 1110 C15A 0808 65E 01F: 8501 7317 OD01 5333 F9 
030: 0105 D5D3 6012 0222 151 003: 6050 8531 477E 9110 298 020: 2005 9B2A 0D11 7E50 DOE 
03E: 8009 F207 6C20 FC1A O0A 004: B71B 1108 1641 467A F4F 021: 7323 009B A50A BA17  B6A 
03F: 05E0 2002 2A00 9F20 C70 005: 8110 A860 6078 9111 B10 022: D133 1378 ODOE E135 8FD 
040: 7602 OFC1 AOSE 0203  96D 006: 2EE5 7085 1FA0 6104 7CE 023: D015 31D8 D380 9135 5B3 
041: 1080 09F2 0760 20FC 804 007: C4D2 1093 03E2 D711  4AB 024: 20D2 3060 631C 9063 1F4 
042: 1405 E020 811B 009F  54E 008: 9633 07D7 0241 1990 OA1 025: 281C 23A8 4540 C3A0 F4A 
043: 2076 C20F C1A0 5E02 30F 009: FE01 2ACE D512 AE9C  O0C5 026: C5AF OD89 0700 758€  D19 
044: OF43 B009 F207 6C20 019 O0A: 6C62 OC38 18F3 5119  DAF 027: DBE1 1580 9084 OF9D B89 
045: FCIA 05E0 2022 2800 C23 00B: E610 9112 E24A C119  BOA 028: 9010 D75 
046: 9F20 76C2 0601 2044  85B 00C: 8A66 07D3 007C E491 88D 
047: 020F C1A0 42D8 OSEO 608 00D: 114C C861 8081 8F01 5B1 
048: 2002 2A00 9F20 76C2 331 00€: 1026 78F8 DSE5 2111 2CD UP CHP28) 
049: 0A11 2021 D205 0350 E73 00F: 9FA1 096D 1011 9FA1 091 # D9FEh 22.5 octets 
O4A: 5545 4440 9F20 76C2 B99 010: 0964 2084 0783 O40E CF1 
048: 0337 70AC 3A00 9F20 902 011: 7920 11AF A10A 7820 AA 0123 4567 89AB CDEF sm 
04C: 7602 0A11 2085 E810 581 012: 4907 6101 1912 AFAT  7DA 
04D: 9F20 09F2 OC56 D3A4  3C6 013: 0987 0008 505E C119 4E4 000: 76C2 0760 82A4 0208 COB 
O04E: 1808 14A0 09F2 033C OF6 014: FA10 911A 110E A34F 313 001: 0140 F7F6 0251 4049 852 
04F: 6099 6500 9F20 15A 015: 1000 8860 0131 1111  DC3 002: CD38 E450 09F2 0 BCE 


016: 1BCA 3498 0008 B240 A2D 
017: 0331 349E AGOE A348 B4E 
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Le Journal JPC est le bulletin de liaison entre les 
membres de l’Association "PPC Paris”, régie par la loi 
de 1901. Le Club est éditeur de JPC, et son siège 
social est au 56, rue Jean-Jacques Rousseau, 75001 
Paris. 


PPC Paris est le représentant Français de HEX 
(Handhelds European Clubs EXchange), la 
fédération des principaux clubs Européens 
d'utilisateurs de calculateurs HP. 


La maquette de ce numéro a été préparée et réalisée 
par Jacques Belin et Asdin Aoufi. 


Les dessins sont de Jean-Jacques Dhénin et Paul 
Courbis. 


Les informations et programmes parus dans ce 
journal sont publiées "Tels quels” et ne peuvent en 
aucun cas engager la responsabilité de 
Hewlett-Packard ou de PPC Paris. Hewlett-Packard 
se réserve le droit de ne pas répondre aux questions 
concernant le sujet de certains articles. 


Les programmes publiés peuvent être utilisés 
librement. Cependant, ils ne peuvent être vendus ou 
fournis dans un ensemble commercialisé, sous 
quelque forme que ce soit, sans l'accord écrit de 
l'auteur ou de PPC Paris. 
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